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IDENTIFICATION 
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1. ABSTRACT 


THE FUNCTION OF THE DZV11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE DZV11 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 


PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER ‘AUTO SIZING’ OR 
INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO=1 AT START TIME. AUTO 
oF — . DONE —. cS FIRST TIME THE PROGRAM IS STARTED AND 


=0. THE AUTOSIZER IS DE TO DETECT 
DZV11 DEVICE ADDRESSES AND VECT ONLY. ALL REMAINING PARAMCTERS WI 
DEFAULT TO a fal VALUES (SEE SEC.8.5). SOL N = CONTROLLED 
AT ANY START TIME THROUGH THE USE OF SWOO,SWO3, SW04, SW06 (SEE SEC. 


4.1.1 FOR A DETAILED DESCRIPTION OF THESE SWITCHES). 


CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS (CNDZA,CNDZB CNDZC) 
ONE SYSTEM MODULE FOR DEC X/11 (DZBA), AND AN OVERLAY FOR ITEP (D (DVDZD). 


INTERPALE POEL E. WITH CNDZB WILL TEST ALL LOGICAL FUNCTIONS OF THE D2ZV11 
CNDZC_IS DESIGNED AS A NON-CHAINABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL DZV11 EIA CABLES. 


RERAAAAAAEAAEAEAAEAAEAAEAEAAEAEEEREAAAEARERRAEREAEAEEAAAAAEAERAERAAAAEREREE 


t *;GPA * 
* NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (SSC 14754} * 
* BASED SYSTEMS. * 


SBC 11/21 * 
CSR_RANGE: 174000 TO 177770 
VEC R : 300 TO 370 
AUTO-SIZING FOR 
CSR AND VECTOR: DISABLED - 
eee tig tititetir iii iiiiiiiiiiiiiiiiiiiiigtsteticiiiiiiiiiiiyy 
¢ 
2. REQUIREMENTS 


2.1 EQUIPMENT 


AN _LSI11 CPU WITH MINIMUM 4K OF MEMORY. 
ASR 335 (OR EQUIVALENT FOR CONSOLE) 
DZv11 INTERFACE 


MODULE 
H STAGGERED TURNAROUND CONNECTOR. 
H325 CABLE TURNAROUND CONNECTOR. 


NCTE: A STAGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
PARITY LOGIC. 





SEQ 0002 
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2.2 STORAGE 
PROGRAM WILL USE ALL 4k OF Rt EXCEPT WHERE ABL AND BOOTSTRAP LOADER 


RESIDE. LOCATION 1500 U_ 1740 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY OPERATOR AFTER” PARAMET RS_ HAVE BEEN _ INPUT L 
= AFT "AUTO SIZING’ HAS BEEN DONE. THESE LOCATIONS 


($ 3 S 
MAY BE CHANGED IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE REQUIRED. 


3. LOADING PROCEEDURE 

3.1 METHOD 
ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE ABSOLUTE 
LOADER. NOTE: IF __ THE i pee ICS ARE ON A MEDIA SUCH AS _ DISK 
eMAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 
ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY * SIZE 


— 
oO 
x 
YI 
NNN 


7 
4 
7 
7 
1 
3 
5 


3.1.1 STARTING THE PROCESSOR AT THE ABSOLUTE LOADER STARTING ADDRESS WILL LOAD 
THE DIAGNOSTIC INTO MEMORY. 
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CNDZBA 
CNDZBA.P11 


4. STARTING PROCEEDURE 
A. i SWR TO ZERO FOR remus SIZING’ 


NPU TERMI NOTE: LOC. 000 

SWITCH REGISTER IN ALL OF THE DZV11 DIAGNOSTICS. (SEE SEC. 
ON TH UP DIAGNOSTIC SwO7=1 AND S 

THE STATUS TABLE HAS BEEN ALREADY BUILT 
STI ANY DZV 


AND THUS 

B. START THE DIAGNOSTIC AT LOC. 200(8). 
AND PROGRAM NAMES (IF 
AND ALSO sh FOLLOWING: 


WERE CHANGED) 

*MAP OF DZV11 STATUS’ 
1500 160100 
1502 oo aTe 
1504 000017 
1506 017470 
1510 000000 

THE ABOVE IS ONLY AN EXAMPLE! 

STARTING A THE PROGRAM. 


T ADD. 1500 IN 
VERIFIED BY THE USER IF AUTO SIZING IS DONE. 
TABLE SEE SECTION 8.4 FOR HELP. 
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OR SET sugo=t FOR USER PARAMETER 


USED AS A « we 
=0 THE 
GNOSTIC 


AGNO RUN. TE: 11_DIA 
TABLE WHEN N LOADED TO, PRESERVE ITS CONTENTS 


LT TABLE. 

THE PROGRAM WILL TYPE MAINDEC 

THIS WAS THE FIRST START UP OF THE PROGRAM) 
(ON THE FIRST PROGRAM RUN OR IF PARAMETERS 


THIS WOULD INDICATE THE STATUS TABLE 
THE STATUS 
FOR INFORMATION OF STATUS 


TABLE MUST BE 


THE PROGRAM WILL TYPE ‘'RUNNING'’ AND PROCEED TO RUN THE DIAGNOSTIC. 


4.1 CONTROL SWITCH SETTINGS 
NOTE: 


THIS PROGRAM UTILIZES A oe or test rg bts WHICH MAY BE 


MODIFIED BY CHANGING LOC. 176 0 PING CONTROL ‘'G’* (*G) ON 
THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 
SW 15 SET: HALT ON ERROR 
SW 14 SET: LOOP ON CURRENT TEST 
SW 13 SET: INHIBIT ERROR PRINT OUT 
SW 12 SET: INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 
SW 11 SeT: INHIBIT_ITERATIONS. (QUICK PASS) 
SW 10 SET: ESCAPE TO NEXT TEST 
SW 09 SET: LOOP WITH CURRENT DATA 
SW 08 SET: CATCH ERROR AND L 
SW 07 SET: NO AUTO SI IF 1ST START OF PROGRAM AFTER LOADING AND 
IF SWOO=0 THEN THE PROGRAM WILL ASSUME THAT THE STATUS MAP 
HAS BEEN BUILT FROM A PREVIOUS DZ2V11 DIAGNOSTIC RUN. 
SW 06 SET: RESELECT DZV11°S DESIRED ACTIVE 
SW 05 SET: RESERVED 
SW 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.1.1) 
Sw 03 SET: yy PARAMETER INPUT (SEE SEC. 4.1.1) 
SW 02 SET: LOCK ON SELECTED TEST 
SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
SW 00 SET: GET USERS PARAMETERS FROM CONSOLE 


Bisa, Bie 


SEQ 0004 


———— 


CNDZBA 
CNDZBA.P11 


*  T 
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SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


Sw 00 


SW 03 


SW 04 


GET USERS et te FROM CONSOLE. + la THIS SWITCH AT at 
UP TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING PARAMETERS: BASE ioe ADDRESS, BASE VECTOR Ti 
MODE OF OPERATION Pat an - INTERNAL, OR STAGGERED), THE 


D EA RATE IS SE -2 KBAUD 
AND THE CHARACTER LENGTH FOR THE MAJORITY OF TESTING IS SET AT 
EIGHT BITS PER CHARACTER WITH TWO STOP BITS. 


oo PARAMETER INPUT. edt an THIS SWITCH AT START UP TIME 

Test NG AND T T EFAULT BA USED FOR T 

OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 

ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 

SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 
E AITING FOR A 


DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS W 
CHARACTE 0 LETE ANSMITTED 0 CEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH HE 


DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN LSI11 
WITH wr MEMORY. WHEN RUNNING THIS PROGRAM ON A_ PROCESSOR 

WITH A_FASTER MEMORY SPEED THIS DELAY COUNT SHOULD BE ADJUSTED 

PROPORTIONATELY HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

24 ;TIME FOR 50 BAUD 


50 3 TIME 

1560 sTIME F 75 BAUD 
1120 sTIME FOR 110 BAU 
0750 sTIME FOR 134 BAUD 
0660 sTIME FOR 150 BAUD 
0330 sTIME F 300 BAUD 
0150 TIME FOR 600 BAUD 
0060 sTIME FOR 1200 BAU 
0040 TIME FOR 1800 BAUD 
0030 TIME FOR 2000 

0020 sTIME FOR 2400 BAUD 
0010 sTIME FOR 3600 BAUD 
0001 TIME FOR 4800 BAUD 
0001 sTIME FOR 7200 BAUD 
0001 sTIME FOR 9600 BAUD 


0001 TIME FOR 19.2 KBAUD 
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SEQ 0005 


ew 


CNDZBA 
CNDZBA.P11 


4.1.2 
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SWITCH REGISTER RESTRICTIONS 


SW 06 


Sw 01 


Sw 09 


SW 04 


RESELECT DZV11°S DESIRED ACTIVE. A MESSAGE IS TYPED OUT ON THE 
CONSOLE TERMINAL ASKING THE OPERATOR TO TYPE A BIT MAP OF THE 
DZV"S DESIRED ACTIVE. wy THIS SWITCH ALLOWS LOCATION DZVACTV 


EXAMPLE : 
IF THE DEVICES CORRESPONDING TO THE DZV11°S NUMBERED ZERO, TwO, 
AND FOUR IN — DZV11_ STATUS MAP (LOC. 1500 THROUGH 1740) ARE TO 


ae m1 
THIS WILL SET BITS TWO, AND FOUR IN LOCATION DZVACTV. ALL 
REMAINING DEVICES 1h ern STATUS MAP WILL THEN NOT BE TESTED. 


34 ed PROGRAM AT SELECTED TEST IT IS STRONGLY eer eree 
THAT AT_LEAST ONE PASS HAS BEEN MADE aoe TRYING TO SELECT 
Test THAT IS NOT IN THE ORDER OF SEQUENCE THE REASON BEING 
THAT THE TO CLE S_AND Ss. 
NOTE: _IF RUNNING MULTIPLE DZV11°S; THE DZV11 YOU DESIRE TO BE 
yest TEST MUST BE taaeeee BY Lig & SE ro SW06 BEFORE we it. ON 
E TEST. IN OTHER WORDS; EACH TI MET HE PROGRAM IS_ STARTED; 


THE FIRST DZV11 wilh BE SELecteD TO BE UNDER TEST UNLESS SW06 IS 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF CALL 
COP1" IS IN THAT TE TH ASON BEING THAT MOST TESTS DEAL 

WITH BLOCKS OF DIFFERENT | DATA TO BE SENT OR RECEIVED ALL AT ONCE 

THUS IN BLOCK DATA, ONE PATTERN CAN'T BE GLED OUT. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 

SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 

TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
(ce cere ser ak A eaeal WILL CAUSE VALID TESTS TO FAIL. 


wn 
— 
z 
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SEQ 0006 
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ERROR SWITCHES 


4.1.3 SWITCH REGISTER PRIORITIES 
. SW 12 DELETE PRINT QUT/BELL ON ERROR. 
> «Sw 13 «DELETE ERROR P NTOUT. 

3. SW 15 HALT ON THE ERR oR. 

4. SW 08 GO TO BEGINNING OF THE TEST(ON ERROR). 

5. SW 10 GOTO NEXT TEST(ON ERROR). 

SCOPE SWITCHES 

1. su 09 CIF ENABLED BY ‘SCOP1"). IF AN ‘*" IS PRINTED IN FRONT OF 
TEST AN ERROR REPORT (EX. *TEST 10 ) $w09 IS 


INCORPORATED iN THAT TEST AND THEREFORE SWO9 IS  *USUALLY* THE 
BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0) 
IF THE PROGRAM USER IS TECHNICALLY TRAINED fo ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE D2V11 MODULE. 

IF swo9 IS NOT ENAB LED; AND THERE iS A *HARD* ERROR 
(CONSTANT); $WO8 IS 


2. FOR INTERMITTENT ERRORS. EITHER START THE PROGRAM WITH SWO1 AND 
SWO2 SET WHICH WILL ALLOW THE USER . » LOCK ON o. SELECTED TEST, 
OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
SWi4 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
ERROR OCCURS. 

3. SW 14 LOOP ON CURRENT TEST. 


4.2 STARTING ADDRESS 
SA 200 = THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 
NOTE: IF ADDRESS 600042 IS NON-ZERO THE PROGRAM ASSUMES IT IS_ UNDER 
ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL* 
a DZV11S ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP° OR 
$. OPERATING PROCEEDURE 


WHEN THE PROGRAM IS INITIALLY STARTED, MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
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5.1 NORMAL START OF DIAGNOSTIC 


ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200, IF SwW00=1 
THEN THE FOLLOWING QUESTIONS ARE ASKED AND MUST BE ANSWERED: 


“41ST om" ADDRESS prepore’ 163770): ** 
T_TYPE IN THE FIRST DZV11 CSR IN THE SYSTEM YOU WISH 
TESTING TO BEGIN AT. RANGE: 160000:163770 


"1ST VECTOR ae (300:770): ‘° 
YOU MUST TYPE IN THE yecror OF THE FIRST DZV11 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 


"MAINTENANCE MODE 
CEXTERNAL <H325> (ED J 
INTERNAL <DZCSRO3=1>(1)) 
STAGGERED <H329>_,,,(S)J,,2, 
PE "EOR v1" OR “'S"" DEPENDING ON WHICH MODE YOU WISH TO RUN 
IN. TF. RUNNING "EXTERNAL" ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR 


“# OF DZV11°S <IN OCTAL> (1:20): ** 
TYPE TOTAL NUMBER OF DZV11°S TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 20 IN OCTAL. 


teeeeeeee TF SWO3=1 THEN THE FOLLOWING WILL BE PRINTED *eeeeeeee 


“LINES g Hy BY BIT <IN OCTAL> (001:017):** 
EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
SELECTED ane Meee. IN STAGGERED MODE TWO ADJACENT LINES MUST BE 


“DEFAULT BAUD RATE <IN OCTAL> (00:17): ‘°° 
THIS GIVES THE USER A wee TO CHANGE THE DEFAULT Se... RATE 


USED IN APP. 90% OF , E CHO 

"00" 50 BAUD? o1 QM 75 BAUD? .102/¢ 110 BAUD) .03'"( 134 BAUD). 

D4 )110817¢_300 BAUD? -""06""< 600 BAUD) <1107""(1200 BAUD) 
10°°(1800 BAUD} 2111-52000 BAUD} 1712°°(2400 BAUD) £15" 3600 BAUD) 

**14'(4800 BAUD) .""15'"(7200 BAUD) .'16'(9600 BAUD) .""17°19.2 KBAUDS 

Low DEFAULT BAUD RATES ARE NOT, SUGGESTED. SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 


IT IS _ IMPORTANT TO wore THAT ALL DZV11°S JW THE SYSTEM MUST BE 
CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. A!SO ALL THE EXTRA 
PARAMETERS OTHER THAN CSR AND VECTORS ARE Given TO THE EXISTING 
sg le S IN THE SYSTEM. 

IF THE MODE OF OPERATION IS DIFFERENT FOR EACH 02V11 THIS MUST 
BE PATCHED INTO THE oe ue MAP ENTRY eu IS_PPINTED AT 
START TIME. AN ALTERNATIVE PUT SuO0= 1 START TIME; 
a QUESTIONS —— pvt “wider TEST AND INDICATE oe pzvii 
IN THE SYSTEM, IF THE STATUS MAP IS TO BE ‘‘PATCHED'’ IT MUST BE 
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 





ee a ee ee + ee  - - ee = eS + 


gore P11 


aX 
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PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED *. THIS enor Hf 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. yh THE USER ATTEMPTS TO RUN N THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR rb THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR ate ge 3 (DEPENDING ON THE ote thao ERROR). 


=< 
2o 


0 D 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


ERRORS 


AS DESCRIBED PREVIOUSLY ys wih ALWAYS BE A_TEST et AND PC_ TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST 
CASES ADDITIONAL INFORMATION OUILL BE SUPPLIED TO THE Tie ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME rg var pew SHOULD "HANG THE BUS’ (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
4 By 3! FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 

Ate 3 at une IN LOCATION ‘STSTNM’ (ADDRESS 1246) FOR THE are? OF THE 
fest | WAS_RUNNING AT . TIME OF THE CATASTROPHIC ERROR. IN _ THIS 
WAY THE "OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZV11 WAS DOING AT THE 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

4 STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW THE PROGRAM WAS 


STARTED. ALSO IT IS_ IMPORTANT TO USE THIS LISTING ALONG WITH THE 
INFORMATION PRINTED ON THE TTY TO COMPLETELY ISOLATE PROBLEMS. 
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SEQ 0009 


fa 


CNDZBA 
|ENDZBA.P11 


| 


i 
| 


7.2 


8.2 
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OPERATING RESTRICTIONS 
PARAMETER MUST BE INPUT FROM USER OR APT IF ‘‘AUTO SIZING’ IS NOT USED. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DZV11 DEVICE DIAGNOSTICS WILL GIVE “ "END PASS" MESSAGE (PROVIDING 
NO R W12=0) WITHIN 2 MIN. THIS IS ASSUMING SW11=1 (INHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS _ IF 
SWi1 (DELETE ITERATIONS) WAS UP (=1). os, IS TO ‘VERIFY NO *HARD* 
ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS EA TI 
PROGRAM IS STARTED= WILL BE_A ‘QUICK PASS’ UNTIL ALL _02V11°S IN SYSTEM 
ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 


END PASS DVDZB-A CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 


ae eC ee oe ewes 
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SEQ 0010 


CNDZBA 
/CNOZBA.PI1 15=DEC=82 14:35 


8.3 KEY LOCATIONS 


SLPADR (1252) 


STATUS MAP 
(1500)=(1740) 


DZVACTV(1406) 


$BASE (1174) 
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CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
HE COUNT IS REACHED OR IF LOOP ON TEST IS 


& D 

CONTAINS THE ADDRESS OF nee NEXT TEST TO BE PEFORMED. 
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 

THE att IN ‘RUN' ALWAYS POINTS ONE PAST THE D2ZV11 


CURRENTLY BEING STED. EXAMPLE : (RUN) 
1412/0000000001000000 MEANS THAT DZV11 NO.5 IS THE DZV11 
NOW RUNNING. 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED TO TEST 
UP TO 16 (DECIMAL) DZV11S SEQUENTIALY. THEY CONTAIN THE 
CSR. VECTOR AND STATUS CONCERNING THE CONFIGURATION OF 
EACH BIT SET IN THs, _LOCATION INDICATES THAT THE 
ASSOCIATED DZV1 TESTED IN TURN. EXAMPLE: 
oe yac ty * 1«06/0000000000011111 MEANS THAT. DZV11 NO. 

BE TESTED. EXAMPLE: (DZVACTV) 
146676006006000010001 MEANS THAT 0Z11 NO. 00,04 WILL BE 


CONTAINS THE RECEIVER CSR OF THE CURRENT DZV11 UNDER 
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SEQ 0011 


nn ne 
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8.4 MORE ON THAT “STATUS TABLE® (1500-1740) 
*MAP OF ery} STATUS* 
1 160100 


THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZV11°S IN 
THE SYSTEM(THESE WILL FOLLOW UNDER THIS TABLE). EXPLANAT 
1500 160100 THIS 4 Ly SYSTEM CONTROL REGISTER FOR THE ist DZV11 IN 


1502 000300 THIS IS VECTOR "A® FOR THE FIRST DZV11 IN THE SYSTEM. 
1504 000017 THIS IS THE BINARY REPRESENTATION OF WHAT LINES ARE TO 


BE TEST 

1506 017470 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 
TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED ith 
17 (19.2k ~~ EIGHT BITS PER CHAR, AND TWO STOP BITS. 
THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 
REMAINING PARAMETERS SHOULD BE LEFT AL 
THIS LOCATION IS USED TO LOAD THE DZV11 LINE PARAMETER 
REGISTER FOR EACH LINE. TH , MEANING OF THE BITS SET IN 
rte LOCATION IS THE SAME AS THE Fume ioe OF THE RELATED 


| 
| 

1510 000000 THIS LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 

THAT INTERNAL LOOP WAS SELECTED AS MODE OF Sire i OR 

IT WILL CONTAIN 100000 INDICATING THAT “STAGGERED MODE*’ 

WAS SELECTED OR IT WILL CONTAIN 000200 INDICATING THAT 
‘EXTERNAL’* WAS THE MODE SELECTED. P 

Mg ABOVE IS REPEATED FOR EACH DZV11 IN THE SYSTEM. THE TABLE IS 

FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT SS 

AS Fides hae PREVIOUSLY. ALSO IF DESIRED BY_ USER; THE 

LOCATIONS BE ALTERED BY HAND 10 SUIT THE SPECIFIC 

CONFIGURATION. 


c----- > - — —— ee — 
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! 8.5 *#® METHOD OF AUTO SIZING *** 
| 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
| THE PROGRAM WILL START AT ADDRESS 160000 AND START  °REFERENCING® | THE 


ADDRE POINTER. NON-EX MEMORY TRAP OCCURES, THE POINTER 
(HOLDING 160000) IS UPDATED 0 AND TH IS UNTIL 
ADDRESS 163770 REAC IF A "BUS REPLY® RESPONSE WAS ISSUED BY THE 


DZV11 (OR ANY OTHER DEVICE) (NO NXM TRAP), "MASTER SCAN ENABLE’ 
ATTEMPTED TO BE SET AND THE TCR BITS FOR ALL FOUR LINES ARE SET. ‘‘TRDY'’ 


SET. THE DIAGNOSTIC WILL THEN CHECK THAT AT LEAST ONE TCR BIT IS STILL 
SET. IF ALL_OF THE ABOVE WORKED, THIS DEVICE IS ASSUMED TO BE A D2ZV11. 
IF ANY OF THE ABOVE FAILED, UPDATING OF THE POINTER IS DONE AND THE 
3 page IS REPEATED. 
NOTE: IF THE PROGRAM DOES NOT FIND YOUR DZV11, SOMETHING IS WRONG AND 
AUTO SIZING SHOULD NOT BE DONE. ~—s 


8.5.2 FINDING THE VECTOR 1] 


pe VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION iat AND 
(NEXT ADDRESS). B1T14 AND BITS (TX INTERUPT a? AND MSTSCAN 
EWABLE) ARE SET INTO T C ALL TCR BIT A DELAY OCCURS. 
D_IF NO INTERUPT OCCURES (BECAUSE OF A BAD DZV11) THe PROGRAM ASSUMES 
VECTOR ADDRESS 300 AND ROBLEM SHOULD BE FIX AGNOSTIC. 
0 HE PROBLEM IS FIXED, THE PROGR OULD BE SETUP AGAIN TO SET 


NCE PROBLEM HE PROGRAM SH 
CORRECT VECTOR. IF AN INTERUPT OCCURRED, THE ADDRESS TO WHICH THE D2V11 
INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: IF THE 
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU, THERE IS A PROBLEM AND 
AUTO SIZING SHOULD NOT BE DONE. 


8.5.3 PARAMETER ASSUMPTIONS. 


SINCE TOO MUCH — WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 
THE PARAMETERS; THE PROGRAM MUST ASSUME THE aS ae VARIATIONS. THE 
RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND. 
i THIS WAY 95% OF THE PARAMETER SETUP WAS DONE BY THE PROGRAM AND 5% BY 


THEREFORE 

1) ALL FOUR LINES ARE ASSUMED TO BE TESTED. 
2) DEFAULT BAUD RATE IS SET TO 17 (19.2 KBAUD). 
3) MODE OF OPERATION IS ‘*INTERNAL MODE"’. 


FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER DETAIL. 
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RUNNING THE DZV11 DIAGNOSTIC UNDER APT 
THE APT INTERFACE 


THE DZV_ DIAGNOSTICS HAVE BEEN DESIGNED TO BE COMPATIBLE WITH THE APT 
ef els PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST DIAGNOSTICS (DVDZA 

vdZ8) oo RUN AS STANDALONE DIAGNOSTICS OR IN EITHER OF THE APT 
MODES. DvD OWEVER IS DESIGNED AS A STANDALONE DIAGNOSTIC ONLY AND 
REQUIRES DIREcT OPERATOR PARTICIPATION. 


SETTING UP THE DIAGNOSTIC USING APT 


THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED ** APT 
MAILBOX-ETABLE*. THESE VARIABLES ARE: 


SSWREG -(1142) USED AS THE SOFTWARE SWITCH REGISTER WHILE RUNNING 
UNDER APT. 

$VECT1 =(1170) USED TO SPECIFY THE FIRST VECTOR ADDRESS 

S$BASE -(1174) USED TO INDICATE BOTTOM ADDRESS OF DZV11 UNDER TEST 

SDEVM =(1176) A BIT MAP REPRESENTING WHICH DZV11°S WILL BE TESTED 

$CDW1 =(1200) USED TO INDICATE WHICH LINES TO RUN ON ALL DZV11'°S 

$CDW2 -(1202) USED TO INDICATE THE whew TEST MODE. SET TO 0 FOR 


INTERNAL TESTING 7 for) FOR EXTERNAL LOOP BACK (H325 
100000 FOR STAGGERED LOOP BACK 


T TALLED). 
$DDWO -(1204) EACH OF THE $DDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR DZV11, GOING UP TO 16 DZV11'S 


RUNNING UNDER APT 


ALL OF THE VARIABLES MENTIONED IN SECTION 9.1.2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT. 


NOTE 
BE SURE SBASE POINTS TO THE FIRST DZV11 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP_ THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 





a na ee +e 


SEQ 0014 


02 
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10.0 PROGRAM DESCRIPTION. 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC=11=DZQAC-C5), JAN 19, 1982. 


46 INITIAL ADDRESS OF THE STACK POINTER *** 1120 e« 
51 MISCELLANEOUS DEFINITIONS 

63 GENERAL PURPOSE REGISTER DEFINITIONS 

75 PRIORITY LEVEL DEFINITIONS 

85 “SWITCH REGISTER’’ SWITCH DEFINITIONS 


113 DATA BIT DEFINITIONS (61T00 TO BIT15) 
141 BASIC “‘CPU"’ TRAP VECTOR ADDRESSES 


358 BITS 15-11=CPU TYPE 
he a 11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07 ,Q=10 
O=REAL TIME CLO ck’ 
pwd POINT PROCESSOR 
=MEMORY MANAGEMENT 


366 ME tre e “conan BYTE) 


=00 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 


371 MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE*’ ABO 


410 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


462 THIS Me CONTAINS THE INFORMATION 4° EACH ERROR THAT CAN OCCUR. 
THE INFORMATION 8 get AINED BY USING THE INDEX N 
LOCATION ab THIS NUMBER INDICATES WHICH ITEM IN i TABLE IS PERTINENT. 
NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
NOTE2: EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3;POINTS TO THE ERROR MESSAGE 
7;POINTS TO THE DATA HEADER 
z;POINTS TO THE DA 

3sPOINTS TO THE DATA FORMAT 





SEQ 0015 


03 
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dD 2 
CNDZBA 33GPA = MACY11 30(1046) 15=DEC-82 14:38 PAGE 72 
CNDZBA.P11 15=DEC=82 14:35 


1010 iP reekes My PASS vB sgPAss) 
IF THERES A MONITOR GO TO IT 
IF THERE ISN*T JUMP TO CYCLE 


1072 THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
D LO HE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


AND LOAD T 
rast to OPTIONS PROVIDED BY THIS ROUTINE ARE: 


W14=1 LOOP ON TEST 
A INHIBIT ITERATIONS 
SCOPE 3; SCOPE=10T 
1147 ROUTINE TO TYPE ASCIZ Mab gor MESSAGE MUST TERMINATE WITH A O BYTE. 
hi ROUTINE WILL tee’ NUMBER OF NULL CHARACTERS AFTER A_LINE FEED. 
NOTE1: S$NULL CON TAINS The CHARACTER ” BE USED AS THE FILLER CHARACTER. 


NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
NOTES: S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
1) USING TRAP INSTRUCTION 
YPE eMESADR 3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


1931 ROUTI Ine USED TO SET UP THE DIAGNOSTIC VIA APT. 
IF B IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET 
THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 
1963 ROUTINE USED TO ‘AUTO SIZE** THE DZV11 
CSR AND VECT me. 
NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
oy RANGE (160000: 163770) 
AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 
2071 teeteterereneerereraner TEST 1 seterecenearenereraneneenetaene 


THIS TEST VERIFIES OVERRUN AND SILO ALA 

ONE LINE AT A TIME = BASED UPON VALID LINES 

AS EACH OF THE FIRST 16 CHARS ARE SENT; SILO ALARM IS 
TESTED TO BE CLEARED. ON THE 16TH — Hs PROGRAM THEN 
tet SILO ALARM TO SET. THEN THE 


ENTIRE 
AN OVERRUN IS EXPECTED ON THE 65TH 
AR PULLED OUT OF Te SILO. 
OR T TEST SENDS 20. CHARACTERS 


MIs. 
SELECTED CONTINUOUSLY WHILE Suoo=t. 
ALARA PULSES, ETC. 


Toman tt te LINE NO. 


SEQ 0016 


Ann 
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2192 


2264 


2397 


2491 
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eeeteneeeeeeeeeaageeeene TEST 2 seereeeeeeeararaeeeeneearerene 
THIS TEST THAT ‘'SILO es WILL INHIBIT 

RECEIVER a RUPTS AND T HAT ON THE 

16TH CHAR THAT SILO ALARM’ WILL CAUSE AN 

INTERRUPT WITH “'RIE'’ S 

THIS WILL DO ALL SELECTED LINES ONE AT A TIME. 

ERROR PRINTOUTS WILL REPORT TRANSMITTING LINE NO. 


eeakeeeeeeeeeaeeeerenee TEST 3 eeeeecerereneeeeareeeeekeerenee 
THIS TEST RUNS ALL LINES FULL BORE 

BASED UPON QUALIFIED LINES 

THIS IS AN INTERRUPT TEST ON THE RECEIVER AND 

TRANSMITTER 


keeekeeeeeereraraaaeene TEST 6 eeeeeeeerererararereeaneerenne 


DZV11 RELATIVE TIMING TEST. 
car Hag st A ae WILL IN TURN A e- CHARS 


GIT ALL CHAR LE NGTHS. op NEW PARAMETER SHOULD 
A so SE IN TIME FROM THE PREVIOUS PARAMETERS SELECTED. 
THE TIME IS ono? AGAINST THE LAST PARAMETER USED 
panpoeree oo TIME IS EXPECTED ON THE CURRENT PARAMETER. 


TERS A 
EIGHT BITS/BER/CHAR = TWO STOP BITS AT 
3 P80 154 M0. 1 134.5, 150, 300, : 1200, 1800, 2000 


“4200” 9600'B 
19.2 K BA BAUD - TWO § $ AT 
EVEN, SIX PIVE BITS/PER/CHAR. 
AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS 
E NEXT SELECTED LINE IS THEN TEST 
GEN UNNING UNDER THE APT MANUFACTURING SYSTEM 
THIS fest IS ONLY RUN THE FIRST PASS 


eeeeneeaerenererenaecear TEST 5 eeeerererenaeneararerareraeneere 


THE MAIN FUNCTION OF THIS TEST IS TO VERIFY 

THAT * ARITY 

THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 
‘S ERED" MODE. 


40(8) CHARS ARE USED FOR THIS TEST. 

ALL SELECTED LINES WILL BE ENABLED AT THE SAME TIME. 
THIS TEST FIRST CHECKS EVEN PARITY FOR ODD LINES AND 
ODD PARITY FOR EVEN LINES, THEN IT CHECKS THE REVERSE. 


SEQ 0017 
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000001 


001120 
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SEQ 0018 


3 3GPA PRGFRT “?MAINDEC-11-DVDZBA/<200>/FOUR LINE ASYNC MUX TESTS, PART 2 OF 2?,DVDZBA 


“GPA HEADER <MD-11-D 
“TITLE CNDZB “A 
:*COPYRIGHT (C) 1982 
:*DIGITAL EQUIPMENT CORP. 
j *MAYNARD , MASS. 01754 


VDZB-A>, 1982 


eTHIS PROGRAM WAS ASSEMBLED ve THE PDP=11 MAINDEC SYSMAC 
 *PACKAGE (MAINDEC=11=-DZQAC-C35), JAN 19, 1977. 


éte1 
3LOA 
PRESS START 


STARTING PROCEDURE 
PROGRAM 
LOAD ADDRESS 000200 


3PROGR 
Penoren<20b> te LINE ASYNC MUX TESTS, PART 2 OF 2°° 


AT THE END OF A 
AND THEN RESUME 


-REM ; 
SWITCH REGISTER OPTIONS 


$W15=1 
SW14=4 


$W13=20000 
SW12=10000 
$W11=4000 
$W10=2000 
$w09=1000 


.SBTTL BASIC DEFINITION 


stINITIAL ADDRESS OF THE 
STACK= 1120 

"EQUIV EMT.ERROR 

-EQUIV I[0T, SCOPE 


jrntSCeL{ sncous DEFINITIONS 


LF= 1 
CR= 1 


TYPE ‘"RUNNING’’ TO INDICATE THAT TESTING HAS STARTED 
Testing PROGRAM WILL TYPE PASS COMPLETE MESSAGE 


H ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR TYPEOUT 

DELETE TYPEOUT/BELL ON ERROR. 
HIBIT ITERA 

APE TO NEXT TEST ON ERROR 

Ny ad DATA 


ON ERROR 
» DO “AUTO SIZING'' ON INITAL START UP. 
DESELECT SPECIFIC DEVICES 

ist THIS MUST NOT EXCEED ORIGINAL COUNT 


221, SELECT DELAY PARAMETER 
=1, SELECT SPECIFIC PARAMETERS 
: 721, LOCK ” TEST SEL eer 
=1, RESTART PROGRAM AT SELECTED TEST 
321, SELECT DEVICE ADDRESS, VECTOR, ETC. 


$s 
STACK POINTER *** 1120 ee2 


3:BASIC DEFINITION OF ERROR CALL 
3sBASIC DEFINITION OF SCOPE CALL 


a 


won oer TAB 
ARRIAGE RETURN 





nn ee | ee es 





ee ie ee or ae ae 
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CNDZBA.P11 =: 15=DEC=82 14:3 BASIC DEFINITIONS SEQ 0019 
(2) 000200 CRLF= 2 z:CODE FOR CARRIAGE RETURN=L INE FEED 
(2) 177776 PS= 177776 ::PROCESSOR STATUS WOR 
(2) .EQUIV PS,PSW 
(2) 177774 STKLMT= 177774 s3STACK LIMIT REGISTER 
(2) 177772 PIRQ= 17777 ::PROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSWR= 177570 : S HARDWARE SWITCH REGIST ER 
(2) 177570 = WARE DISPLAY REGISTE 
(3) cee ares THE FOLLOWING ODT’ etaRt ADDRESS FOR SBC 14021 1S ADDED 
(2) OCENERAL PURPOSE REGISTER DEFINITIONS 
(2) 000000 RO= %0 7:GENERAL REGISTER 
(2) 000001 Ri= 1 Z:GENERAL REGISTER 
(2) 00000 R2= % T:GENERAL REGISTER 
(2) 00000 R3= % t:GENERAL REGISTER 
(2) R4= 14 Z:GENERAL REGISTER 
(2) 000005 R5= <5 [GENERAL REGISTER 
(2) R6= %6 7:GENERAL REGISTER 
(2) 000007 R7= 17 ::GENERAL REGISTER 
(2) 000006 SP= %6 3 STACK POINTER 
(3) 000007 PC= %7 ::PROGRAM COUNTER 
(2) s*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= sO s;PRIORITY LEVEL 0 
(2) 000040 PRi= 40 : PRIORITY LEVEL 1 
(2) 000100 PR2= 100 ::PRIORITY LEVEL é 
(2) 000140 PR3= «140 ::PRIORITY LEVEL 
3 i pas B28 HDRIORI LEVEL § 

(3) $08808 PR6= $ : PRIORITY LEVEL 6 
(2) 000340 PR7= 340 SPRIORITY LEVEL 
(2) "SWITCH REGISTER" SWITCH DEFINITIONS 
(2) 100000 gy1s= 1000 

(2) 040000 Swi4= 40000 

(2) 020000 SW13= 20000 

(2) 010000 Sw1i2= 10000 

(2) 004000 Swil= 4000 

(2) 002000 Sw10= 2000 

(2) 001000 sw0o9= 1000 

(2) 000400 SwOo8= 400 

(2) 000200 sw07= 200 

(2) 000100 $w06= 100 

(2) 000040 sw0S= 4 

(2) 000020 Sw04= 2. 

(2) 000010 sw03= 10 

(2) 000004 Sw02= 4 

(2) 000002 Sw0l= ; 

(2) 000001 SwO00= 

(2) ~EQUIV $w09,SW9 

(2) -EQUIV $WO8.S 

(2) -EQUIV $WO7,SW 

(2) -EQUIV i +S 

(2) -EQUIV 405 »$u3 

(2) sEQUIV 

(2) -EQUIV Su03. su3 

(2) EQUIV 











ee 
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-EQUIV Sw01,SW1 





_ 
~w 
— 


| (3) “EQUIV SWO0,SWO 
(2) @DATA BIT DEFINITIONS (B1T00 TO BIT15) 
(2) 100000 BIT15= 100006 
(2) 040000 BITi4= 40000 
(2) 020000 BIT13= 20000 
| (3) 010000 BITi2= 10000 
(2) 004000 BIT11= 4000 
(2) 002000 BIT10= 2000 
(2) 001000 BITO9= 1000 
(2) 0004 BITOB= 400 
(2) 000200 BITO7= 200 
(2) 000100 BIT06= 100 
(2) 000040 BITOS= 40 
(2) 000020 BIT04= 20 
(2) 000010 BITO3= 10 
(2) 000004 BITO2= 4 
(2) 000002 BITO1= 2 
(2) 000001 BITOO= 1 
(2) -EQUIV BITO9,BIT9 
(2) “EQUIV BITO8.B1T8 
(2) “EQUIV BIT07.B1T7 
(2) "EQUIV BITO6.BIT 
(2) “EQUIV BITOS.BIT 
(2) “EQUIV BITO4.BITS 
(2) “EQUIV BIT03.BIT3 
(2) “EQUIV BITO2.BIT 
(3) “EQUIV BIT01.BIT 
(2) “EQUIV BITO0.BITO 
(2) : *BASIC cpu" TRAP VECTOR ADDRESSES 
(2) 000004 ERRVEC= TIME OUT AND OTHER ERRORS 
(2) 000010 RESVEC= to ; RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 Fi i 
(2) 000014 TRIVEC= 14 RACE TR AP 
(2) 000014 BPTVEC= 14 : SBREAKPOINT TRAP (BPT) 
(2) 000020 IOTVEC= ;INPUT/OUTPUT TRAP (IOT) *#SCOPE*® 
(2) 000024 PWRVEC= 26 RE AIL 
(2) 000030 EMTVEC= 30 i $ERULATOR TRAP (EMT) **ERROR*® 
(2) 000034 TRAPVEC= RAP’* TRAP 
(2) TKVEC= 60 itt Y KEYBOARD VECTOR 
(2) 000064 TPVEC= 64 “TTY PRINTER VECTOR 
(2) seesee THE FOLLOWING BREAK VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
(2) 000100 LKVEC= 100 CLOCK VECTOR 
(2) 000140 BRKVEC= 140 ‘iB R EAK VECTOR 
(2) 000240 PIRQVEC=240 + OROGRAM INTERRUPT REQUEST VECTOR 
(1) 
(1) p INSTRUCTION DEFINITIONS 
(1) . 
(1) 005746 PUSH1SP=5746  ;DECREMENT PROCESSOR STACK 1 WORD 
(1) 005726 POP1SP=5726 Z INCRER NI PROCESSOR STACK 1 WORD 
(1) or 046 PUSHRO=10046 AVE RO ON STACK 
(1) 1 POPRO=12600 tRESTORE RO FROM STACK 






a a a ee ewe ae 2 
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CNDZBA.P11 —- 15=DEC= GENERAL DEFINITIONS AND EQUIVALENCES SEQ 0021 
(1) 024646 PUSH2SP= a :DECREMENT STACK TWICE 
M1) 022626 pOp2sp+2 626 :INCREMENT STACK TWICE 
(1) 000200 ZSET INTERRUPT MASK (INHIBIT FURTHER INTERRUPTS) 
(1) TALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 
(1) 
(1) 3D2V11 CONTROL AND STATUS REGISTER DEFINITIONS 
(1) : (DZVCSR) BIT DEFINITIONS 
(1) 4 
(1) 000010 MAINT = BIT3 — ; MAINTENANCE _it0ve ENABLE 
(1) 000020 DCLR=BIT4 :DEV VICE CLEAR 
(1) 00004 MSENAB=B1TS STER SCAN ENABLE 
(1) 000100 RIE=BIT6 TRECEIVER INTERRUPT ENABLE 
(1) 000200 RDONE=B1T7 SRECEIVER DONE 
(1) 010000 SILOEN= BIT12_ :SILO ALARM ENABLE 
(1) 020000 SILOAL = BIT13 :SILO ALARM 
(1) 040000 TIE=BIT14 S TRANSMITTER INTERRUPT ENABLE 
(1) 100000 TRDY=B1T15 S TRANSMITTER READY 
(1) zDZVCSR WORD DEFINITIONS 
(1) 000000 TLO=0 * : TRANSMIT LINE 0 
(1) 000400 TL1=B1T8 S TRANSMIT LINE 1 
(1) 001000 TLe=B1T9 S TRANSMIT LINE : 
(1) 001400 TL3=BIT9!BITS :TRANSMIT LINE 
(1) 
(1) :DZVRBUF BIT DEFINITIONS 
(1) . 
(1) 010000 PARER=B1T12 ZPARITY ERROR 
(1) 020000 FRMERR=BIT13 FRAME ERROR 
(1) 040000 OVRRUN=B1T14 OVERRUN ERROR 
(1 100000 DVALID=BIT15 DATA VALID 
(1) ;DZVRBUF WORD DEFINITIONS 
(1) : 
(1) 000000 RLO=0 ;RECEIVER LINE 0 
(1) 000400 RL1=B1T8 SRECEIVER LINE 1 
(1) 001000 RLe=B1T9 TRECEIVER LINE 
(1) 001400 RL3=BIT9!BITS RECEIVER LINE 
(1) ZDZVLPR WORD DEFINITIONS 
(1) : 
(1) LPO=0 ZLINE PARAMETER 
(1) 000001 Lp 1=B110 ZLINE PARAMETER ° 
(1) 00000. =B1T1 SLINE PARAMETER é 
(1) 00000 te =BIT1!BITO [LINE PAR TER 
(1) FIVE=0 sFIVE BITS/ CHAR, 1 Stop OP BIT 
(1) 1 SIX=B1T3 [SIX BITS/CHAR, 1 STOP BIT 
(1) SEVEN=B1 14 : SEVEN n BLTS/CHAR, STOP BIT 
(1) EIGHT=BIT4!BIT3 :EIGHT BITS/CHAR.1 STOP BIT 





-——— 
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CNDZBA.P11  15=DEC GENERAL DEFINITIONS AND EQUIVALENCES SEQ 0022 
1) 000040 FIVES=BI1TS sFIVE BITS/CHAR,2 STOP BTS 
a) 000050 SIXS=BITS'BIT3 :SIX BITS/CHAR,2 STOP BITS 
(1) 000060 SEVENS=BITS'B1T4 ; SEVEN “BITS TCHOR, STOP BITS 
(1) 000070 EIGHTS=BITS!BIT4'BIT3 EIGHT BITS/CHAR, 2 STOP BITS 
3 Saale te nas 
(1) 000000 ONE STOP= TONE STOP BIT ENABLED 
(1) 000040 TWOSTOP=B1T5 :TWO STO STOP Bits ENABLED 
a 010000 RCVON=B1T12 ENABLE ARECEIVER (RECEIVER ON) 
(1) 000000 $50=0 : SPEED fb #8 BA 
ri satel SEER Tet 
HESS pes 
() $03000 S600=81T 10/8179 a 300 BAUD 
ne Sagiestgvertovnre. 2568 ete eu 
(1) 004400 8) 000-8111 '8118 :SPEED 2000 BAUD 
(1) 005000 $2400=B81T11'B1T9 [SPEED 2400 BAUD 
Heese Saar cL iors 18 1s Bs 
if 598 Seg atTHT BLTISIITS. [SBE Sebh BAB 
(1) 007400 SOG0U=BITHNiBITIO(6119, :SPEED 9600 sSPEED 19200 BAUD 
(1) ;DZVTCR BIT DEFINITIONS 
(1) 000001 TCRO=8170 ZENABLE TRANSMISSION ON LINE 0 
(1) 000002 TCR1=BIT1 TENABLE TRANSMISSION ON LINE 1 
(1) 000004 TCR =81T TENABLE TR SSION ON LINE : 
(1) 000010 TCR3=BIT [ENABLE TRANSMISSION ON LINE 
(1) 000400 DTRO=B1T8 [DATA TERMINAL READY FOR LINE 0 
(1) 001000 DTR1=B1T [DATA TERMINAL READY FOR LINE 
(1) 002000 DTR2=BI1T10 [DATA TERMINAL READY FOR LINE é 
(1) 004000 DTR3=B1T11 [DATA TERMINAL READY FOR LINE 
(1) :DZVMSR BIT DEFINITIONS 
(1) 1 RINGO=B1T0 :RING INDICATED ON LINE 9 
(1) 2 RING1=B1T1 [RING INDICATED ON LINE 
(1) RING2=BIT [RING INDICATED ON LINE : 
(1) 10 RING3=B1T [RING INDICATED ON LINE 
(1) 0004 =B1T SCARRIER PRESENT ON LINE 9 
1) 1 CO1=B1T [CARRIER PRESENT ON LINE 
(1) 2 €02=B1T10 SCARRIER PRESENT ON LINE é 
(1) 004000 (03=B1T11 SCARRIER PRESENT ON LINE 
(1) ;DZVTDR BIT DEFINITIONS 
(1) . 
(1) 900400 BRKO=B118 sBREAK FOR LINE Q 
(1) 001 BRK1=B1T [BREAK FOR LINE 
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GENERAL DEFINITIONS AND EQUIVALENCES 
BRK2=B1T10 sBREAK FOR LINE 
BRKS=B1T11 sBREAK FOR LINE 


ee ne ee 


SEQ 0023 ) 


Lh i 
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sTABLE OF LOOP AROUND FUNCTIONS (H325) 


I F a 

Vv a 

REC TRANS 
DATA DATA 
I & 

Vv a 

co RTS 


Vv 
RING DTR 


a a oe ee es 


SEQ 0024 


M2 
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FS RRRARAAAAAEEEAREAEEEERE EEE EEEEERREREEEREREREEREEREREEEHEEREEEREEEEE 


(1) : TRAPCATCHER FOR ILLEGAL INTERRUPTS 

a1) [THE STANDARD “TRAP CATCHER’ IS PLACED 

(1) SBETWEEN AD DRESS o. 10. ADDR ESS 776. 

(1) t1T LOOKS LIKE “'PC+2 H 

(1) FERRARA AAAEAEAAEAEEREEAAEEAAEEEEEAAAAAAAEEREEAREEERAREREEREEEREREEEEEE 

(1) 

(1) 000000 20 

(1) ;STANDARD INTERRUPT VECTORS 

(1) ; 

(1) 000020 .=20 

(1) 000020 004354 . SCOPE :SCOPE LOOP HANDLER 

(1) 000022 000200 MASK ZHANDLE AT PRIORITY 7 

(1) 000024 007312 $PWRON [POWER FAIL HANDLER 

(1) 000026 000300 300 i SERVICE AT PRIORITY LEVEL 6 VER:0 

(1) 000030 006420 SERROR HANDLER 

(1) 000032 000300 300 CE RVICE AT PRIORITY LEVEL 6 VER:0 

(1) 000034 006212 TRPSRV [GENERAL HANDLER DISPATCH SERVICE 

(1) 000036 000300 SSERVICE AT PRIORITY LEVEL 6 VER:0 

(3} .SBTTL ACT11 HOOKS 

(3) FF RRR ARAEEREER AER EEEEE EEE EEE EEEREREEEEEEERERREEEREERAEREEEEEEEEEE 

(2) [HOOKS REQUIRED BY ACT11 

(2) 000040 $SVPC=, ZSAVE PC 

(33 000066 ossie SEN 

(2) 6 004510 SENDAD 121)SET LOC.46 TO ADDRESS OF SENDAD IN .$cOP 
(2) 000052 000000 “WORD 0 i32)SET Loc. 52 TO ZERO 

(2) 000040 *=$SVPC t: RESTORE P 

(1) 000174 =17%4 

(1) 000174 000000 BISPREG: 0 ;SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
(1) 000176 900000 SW SuREG: 0 TSOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
(1) 000200 000137 002116 JMP START :G0 TO START OF PROGRAM 

(2) 

(2) 001000 .=1000 

(2) 001000 005200 047103 055104 MTITLE: .ASCIZ <200><12>/CNDZBA/<200>/FOUR LINE ASYNC MUX TESTS, PART 2 OF 2/<200> 


13 


001120 


S88 SS8SSSsSSsssss 
lt a ed td ad od od ot 
Oe ed ad ad od dd 
SPP LES WWRoToTnonon 
AEM ZSSKEYSSRNSS 


000 


001152 


ssessssssss 
NAEARESEAE 


8 
e -* 
+ —_? 
e * 


La 


Sg 
iety 
we 


07°96 . 017479 
orsTy bine 
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N 2 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


-=1120 


SRA AEAEAAAAEEAERAEREEEAEEEEEAEEAEAAAEEAAAAAAAREREREAEREEEREEREE 


*SBTTL APT MAILBOX-ETABLE 


FERRARA REAER EERE EEEEEREAREEEEEERRAEEREERREREREERRAAEEEERERERRE ERE 


EVEN 
AIL: 
SMSGTY: .WORD AMSGTY 
SFATAL: .WORD AFATAL 
STESTN: .WORD ATESTN 
PASS: . WORD APASS 
SDEVCT: .WORD ADEVCT 
UNIT: WORD AUNIT 
SGAD: .WORD AMSGAD 
SGLG: .WORD AMSGLG 
SE TABLE 
ENV:  .BYTE AENV 
VM: .BYTE AEN 


SEN -BYTE VA 
ENVIRONMENT MODE BITS 


$SUREG: .WORD  ASWREG 
SUSWR: .WORD AUSWR 
SCPUOP: .WORD ACPUOP 
3* 
ge 
3* 
3* 
3* 
** 
$1: .BYTE AMAMS1 
$MTYP1: .BYTE AMTYP1 
-* 
3* 
** 
SMADRI: .WORD AMADR1 
$MAMS2: .BYTE AMAMS. 
SMTYP2: .BYTE AMTYP 
SMADR2: AMADR 
SMAMS3: .BYTE AMAMS 
SMTYP3: .8YTE AMTYP 
SMAD°S: . WORD 
SMAMS4: BYTE 
SMTYPG: .BYTE AMTYP4 
: WORD 
SVECT1: .WORD AVECTI 
SVECT2: .WORD AVECT2 
SE: .WORD  ABASE 
7 ;BASE ADDRESS 
em: (Sh «ome 
Mews owl OALUM 
$cDN2: .UORD ACDdDw 
$D0WO: .wCet 
SDDW?: .WORD ADDw? 
$D : .WORD ADDW 
$POwS: .wOS> fdta 


33APT MAILBOX 
7+ 5 TYPE CODE 
3eFAT R NUMBER 


UNIT NUMBER 
i TRE SSAGE Sata 


ay AGE LENGTH 
ENVIRONMENT TABLE 
+ ENVIRONMENT BYTE 


33 APT SWITCH REGISTER 
SWITCHES 


3U 
bitse TYPE, ate. & 
ITS IS-115CPU T 
1/04=01, "11/05=02, 11/20=03,11/40=04,11/45=05 
7 70-06, ePDQ=07,0=10 


BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY GEME 
3;HIGH ADDRESS,M.S. BYTE 
sine. TYPE i 
mEM. PE Brie -- (HIGH BYTE) 
Pe 80 cc 


73HIGH ADDRESS ,BLK#1 
LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “‘TYPE’’ ABOVE 
GH_ADDRESS.M.S. BYTE 


ME 

HI 

MER. ° 

MEM.LAST ote te k#2 
HIGH AD 

mE 

+ 3 ME 


kas 
GH a SF 8 BYTE 


mf 
TERRUPT rat f PRIORI Tvat 
TERRUPT r VECTOR Bus PRIORI TYa2 


wT a TEST 


B= 
ae 


t BEST. oT ION Soane? 


BRRe SE ; 


SEQ 0026 | 
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SDDWI5: 


SETEND: 


a = ee ee ee Ce 
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CNDZBA.P11  15=DEC=82 14 COMMON T SEQ 0028 
3) .SBTTL COMMON TAGS 
(6) 3 3 SREAKAAAAAAAATAAAAEAAEEKEKETEKAAAAAARAAARAARARARAARAAAEAAAEAEAREEE 
(3) :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(3) ?*USED IN THE PROGRAM. 
(3) 1264 SCMTAG: zzSTART OF COMMON TAGS 
(3) 001244 000000 WORD 9 
(3) 00124 000 STSTNM: .BYTE : CONTAINS THE onest NUMBER 
(3) 90124 000 SERFLG: .BYTE 0 i CONTAINS ERROR FLAG 
(3) 001250 000000 SICNT: .WORD 0 : CONTAINS S Etevest ob BERATION COUNT 
(3) 001252 000000 SLPADR: .WORD 0 s:CONTAINS SCOPE L DRESS 
(3) 001254 SLPERR: .WORD 0 ::CONTAINS SCOPE aif TURN FOR ERRORS 
(3) 001256 SERTTL: .WORD 0 Z:CONTAINS TOTAL ERRORS DETECTED 
(3) 001260 000 SITEMB: .BYTE 0 3:CONTAINS ITEM CONTROL pvt 
(3) 001261 001 SERMAX: .BYTE 1 [CONTAINS MAX. ERRORS PER TEST 
(3) 001262 000000 SERRPC: .WORD 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
(3) 001264 000000 SGDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘GOOD’ DAT 
(3) 001266 000000 $BD -WORD 0 3: CONTAINS ADDRESS OF 'BAD® DATA 
(3) 001270 SGDDAT: .WORD 0 AINS GOOD’ DATA 
(3) 001272 000000 .WORD 0 S:CONTAINS "BAD® DATA 
(3) 001274 000000 .WORD 0 : [RESERVED=-NOT TO BE USED 
(3) 001276 000000 “WORD 0 
(3) 001300 000 SAUTOB: .BYTE 0 ZZAUTOMATIC MODE INDICATOR 
(3) 001301 000 SINTAG: .BYTE 0 ‘INTERRUPT MODE INDICATOR 
(3) 001302 WORD 
(3) 001304 177570 SWR: WORD DSWR Z:ADDRESS OF SWITCH REGISTER 
(3) 001306 177570 DISPLAY: WORD DDISP S:ADDRESS OF DISPLAY REGISTER 
(3) 001310 177560 $TkS: 177560 33TTY KBD STATUS 
(3) 001312 177562 $TKB: 177562 TY KBD BUFFER 
(3) 001314 177564 $TPS: 177564 SETTY PRINTER STATUS REG. ADDRESS 
(3) 001316 177566 $TPB: 177566 33 TTY PRINTER BUFFER REG. ADDRES 
(3) 001320 000 SNULL: .BYTE 0 [CONTAINS NULL CHARACTER FOR FILLS 
(3) 001321 002 SFILLS: .BYTE 2 $ {CONTAINS # OF FILLER CHARACTERS REQUIRED 
(3) 001322 012 SFILLC: .BYTE 12 S2INSERT FILL CHARS. AFT FEED'’ 
(3) 001323 000 STPFLG: .BYTE 0 t:""TERMINAL AVAILABLE FLAG (BIT<07>=0=YES) 
(3) 001324 000000 REGAD: . 0 33CONTAINS THE ADDRESS F 
(3) s:WHICH (S$REGO) WA SB TAINED 
(5) 001326 000000 SREGO: .WORD 0 S:CONTAINS (($REGAD) +0) 
(5) 001330 000000 SREG1: WORD 0 S:CONTAINS (($REGAD) +2) 
(5) 001332 000000 SREG2: WORD 0 Z:CONTAINS (($REGAD) +4) 
(5) 001334 000000 SREG3: WORD 0 ::CONTAINS (($REGAD) +6) 
(5) 001336 000000 SREG4: .WORD 6 z3 CONTA INS ({SREGAD)* +10) 
(5) 001340 000000 SREGS: .WORD ‘CONTAINS (($REGAD) +12) 
(5) 001342 000000 $T ~WORD 0 *:USER DEFINED 
(5) 001344 000000 STMP1: WORD 0 s:USER DEFINED 
(5) 001346 000000 STMP2: WORD 0 s:USER DEFINED 
(5) 001350 000000 STMP3: WORD 0 [USER DEFINED 
(5) 001352 000000 STMP4: . WORD 33 USER DEFINED 
(3) 001354 000000 STIMES: 0 23MAX. NUMBER OF ITERATIONS 
(3) 001356 077 QUES: .ASCII /2/ : QUESTION MARK . 
(3) 001357 015 SCRLF: ASCII <15> {CARRIAGE RETURN 
(3) 001360 000012 $LF:  .ASCIZ <12> Z:LINE FEED 
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(3) .SBTTL ERROR POINTER TABLE 
(3) *THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(3) "THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
(3) S LOEATION Rte. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
(3) *NOTE1: If $ITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 
| (3) : #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(3) 3* eM ;sPOINTS TO THE ERROR MESSAGE 
(3) te DH i POINTS TO THE DATA HEADER 
(3) * DT POINTS TO THE DATA 
3) ie OF tIPOINTS TO THE DATA FORMAT 
(3) 
(3) 001362 SERRTB: 
| 33 :PROGRAM CONTROL PARAMETERS 
(2) : 
(2) 001362 000000 NEXT: 0 ZADDRESS OF NEXT TEST TO BE EXECUTED 
(3) 001364 000000 LOCK: 0 SADDRESS FOR LOCK ON CURRENT TEST, TIGHT LOOP 
(3) :PROGRAM VARIABLES 
(2) ‘ 
(2) 001366 000017 LINE: 17 i DEFAULT ALL FOUR LINES RUNNING 
(2) 001370 017470 PAR: 17470 ARAMETERS: 8 BITS/CHAR *¥ STOP BITS.19200 BAUD,.NO PARIT 
(3) 001372 900000 0 SDEFAULT MAINTENANCE MODE 
(2) 001374 SAVLIN: NUMBER 
(2) 001376 000000 XMTLIN: 0 : TRANSMISSION LINE NUMBER 
(2) 001400 000000 XMTCNT: 0 [COUNT OF WORDS IN A TRANSMISSION PATTERN 
(2) 001402 000000 REGIST: 0 [DEVICE ADDRESS STORAGE LOCATION 
(2) 001404 000000 PC: 0 :PROGRAM COUNTER STORAGE 
(2) 001406 000001 DZVACTV: .BLKW 1 ;*DZV11"S SELECTED ACTIVE. 
(2) 001410 000001 SAVACTV:.BLKW 1 [eA BIT MAP OF D2V11'°S IN THE SYSTEM 
(2) 001412 000001 RUN: 1 ;*POINTER ONE PAST RUNNING DEVICE. 
(2) 001414 000001 DZVNUM: .BLKB 1 [*OCTAL NUMBER OF DZV11'S IN THE SYSTEM. 
(2) 001415 001 SAVNUM: .BYTE 1 3 *WORKABL E NUMBER. 
(2) 001416 01 SAVNO: .BLKB 1 [*OCTAL NUMBER OF DZ2V11°S BEING TESTED 
(2) 001420 EVEN 
(2) 001420 001500 ACTIVE: DZV.MAP ; TABLE POINTER. 
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CNDZBA.P11 = 15=DEC=82 14:35 ERROR POINTER TABLE SEQ 0030 
(2) 
:PROGRAM CONTROL FLAGS 
(2) , 
(2) 901428 000 INIFLG: .BYTE 0 :PROGRAM INITIALIZATI G 
(2) O014¢ 000 HDRFLG: .BYTE 0 : PROGRAM INITIALIZATION FLAG FOR HEADER MAP 
(2) 001424 000 MNTFLG: .BYTE 0 SMAINTENANCE BIT SET FLAG 
3) 001425 000 DONELG: -BYTE 0 : TRANSMISSION COMPLETION FLAG 
(2) “DATA VARIABLES 
(2) 001426 000000 D0: WO 0 
(2) 001430 000000 TD1: WORD 0 
(2) 001432 000000 TD2: WORD 0 
(2) 001434 000000 TD3: . WORD 0 
(3) 001436 000000 TRO: WORD O 
(2) 001440 000000 TR1: WORD O 
(2) 001442 000000 TRE: <WORD 0 
(2) 001444 000000 TR3: <WORD 0 
(2) 001446 STOP: 
(2) .SBTTL APT PARAMETER BLOCK 
(3) FERRARA AARAAAEEAAEEAEEAEEEEEEEEEREEEAEEEEEEREREREREEEERERREREEEEE 
(2) Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(3) FERRARA AAEAEEAEAE EAHA EERE EEEEEEEEEEEEEEEEREEEREREEEREEEEREEEE 
(2) 001446 -$X=. 3 SAVE CURRENT LOCATION 
(2) 000024 224 :SET POWER FAIL TO POINT TO START OF PROGRAM 
(2) 000024 000200 200 tI FOR APT START UP 
(2) 000044 = ::POINT TO APT INDIRECT ADDRESS PNTR. 
(2) 000044 001446 $APTHDR ::POINT TO APT HEADER BLO 
(2) 001446 -=.$X RESET LOCATION COUNTER 
(3) SHAAEAEAAAAAAAAAAAAEAAAEAAAAAAAEEAARARARARAEAARAAEAAEAAERAEAEEEEE 
(2) SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
(2) S INTERFACE SPEC. 
(2) 001446 SAPTHD: 
(2) 001446 000000 SHIBTS: .WORD 0 :TwO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(2) 001450 00112 SMBADR: .WORD S$MAIL +S ADDRESS OF APT MAILBOX (BITS 0-15) 
(2) 001452 00013 STSTM: WORD 90. ::RUN TIM OF LONGEST TEST 
(2) 001454 000137 SPASTM: .WORD 95. 33RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(2) 001456 000000 SUNITM: .WORD 0. *ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(2) 001460 000052 "WORD SETEND-SHAIL/ LENGTH MAILBOXETABL E (WORDS) 
(1) :DZV11 STATUS TABLE AND ADDRESS ASSIGNMENTS 
(1) 
(1) 001500 .=1500 
(1) 001500 DZV.MAP: 
(3) 001500 000001 DZCRO: .BLKW 1 sCONTROL STATUS REGISTER FOR DZV11 NUMBER 0 
(3) 001502 000001 pzvco: . 1 SRECEIVER AND BASE VECTOR FOR D2ZV11 NUMBER 0 
(3) 001504 000001 LINEO: .BLKW 1 SALL LINES SELECTED 
(3) 001506 000001 PARO: .BLKW 1 s PARAMETERS 
(3) 001510 000001 MANTO: .BLKW 1 [MAINTENANCE MODE FOR THIS DEVICE 
(3) 001512 000001 DZCR1: .BLKw 1 :CONTROL STATUS REGISTER, FOR 02V11 NUMBER 1 
(3) 001514 000001 D2VC1: .BLKw 1 [RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 1 
(3) 001516 000001 LINE): .BLKw 1 TALL LINES SELECTED 
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18 CNDZBA.P11 15=DEC= APT PARAMETER BLOCK SEQ 0031 

(3) 001520 000001 PARI: .BLKW 1 3 PARAMETERS 
(3) 001522 000001 MANT1: .BLKW 1 sMAINTENANCE MODE FOR THIS DEVICE 

| (3) 001524 000001 DZCR2: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 2 
(3) oot 2¢8 000001 DZvC2: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 2 
(3) 001530 000001 LINE2: .BL 1 ALL LINES SELECTED 
(3) 001532 000001 PAR2: . 1 ; PARAMETERS 
th 001534 000001 MANT2: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001536 000001 DZCR3: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 3 
(3) 001540 000001 DZ2vC3: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 3 
(3) 001542 000001 LINES: . 1 ALL LINES SELECTED 
(3) 001544 000001 R3: .BLKW 1 
e 0015 000001 TS: « 1 i MAINTENANCE MODE FOR THIS DEVICE 
(3) 001550 000001 DZCR4: .BLKW 1 : CONTROL oy REGISTER FOR DZV11 NUMBER 4 
(3) 001552 000001 DZvc4: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 4 
(3) 001554 000001 LINES: .BLKW 1 ALL LINES SELECTED 
(3) 001556 000001 R4: .BLKW 1 ; PARAMETERS 
4 001560 000001 4: . 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001562 000001 DZCRS: .BLKW 1 + CONTROL STATUS REGISTER FOR DZV11 NUMBER 5 
(3) 001564 000001 DZvC5: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 5 
(3) 001566 000001 LINES: .BLKW 1 ALL LINES SELECTED 
(3) 001570 000001 PARS BL 1 ;PARAMET 
$4 001572 000001 MANTS: . 1 MAINTENANCE MODE FOR THIS DEVICE 
ti 001574 1 DZCR6: .BLKW 1 CONTROL STATUS pr yet FOR DZV11_ NUMBER 6 
(3) 001576 1 DZvcé: . 1 ;RECEIVER AND BASE VECT FOR DZV11 NUMBER 6 
(3) 001600 000001 LINE6: . 1 ALL LINES SELECTED 
(3) 001602 000001 P -BLKW 1 ; PARAMETERS 
$4 001604 000001 MANT6: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001606 000001 DZCR7: .BLKW 1 ; CONTROL yy ry FOR DZV11_ NUMBER 7 
(3) 001610 000001 DZvC7: . 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 7 
(3) 001612 000001 LINE7: .BLKW 1 ALL LINES NSELECT ED 
(3) 001614 000001 PAR?: .BLKW 1 3 PARAME 
4 001616 000001 MANT7: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001620 000001 DZCR10: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 10 
(3) 001622 000001 DZVC10: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 10 
(3) 001624 000001 LINE10: .BLKW 1 sALL LINES SELECTED 
(3) Boregs 000001 PAR1O: .BLKW 1 ; PARAM 
G 0016 000001 T10: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001632 000001 DZCR11: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 11 
(3) 001634 000001 DZVC11: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 11 
(3) 001636 000001 bine ots -BLKW 1 ALL LINES SELECTED 
(3) 001640 000001 -BLKwy 1 ; PARAMETERS 
1. 001642 000001 -BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001644 000001 DZCRI2: .BLKW 1 CONTROL STATUS ry FOR DZV11_ NUMBER 12 
(3) 001646 000001 DZvVCl2: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZ2V11 NUMBER 12 
(3) 001650 000001 Lin} -BLKW 1 sALL LINES SELECTED 
(3) 001652 000001 -BLKW 1 ; PARAMETERS 
(3) 001654 000001 143 BLK 1 MAINTENANCE MODE FOR THIS DEVICE 


ee ee 
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CNDZBA.P11 15=DEC=82 14:35 APT PARAMETER BLOCK SEQ 0032 
(3) 
(3) 001656 000001 DZCR13: .BLKW 1 + CONTROL STATUS REGISTER FOR DZV11 NUMBER 13 
(3) 001660 000001 DZVC13: .BLKW 1 sRECEIVER AND BASE VECTOR FOR DZV11 NUMBER 135 
(3) 001662 000001 LINE15: .BLK 1 ZALL es SELECTED 
(3) 001664 000001 PAR13: .BLK 1 ; PARAMETER 
(3 001666 000001 MANT13: .BLK 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001670 1 DZCR14: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 14 
(3) 001672 000001 DZvC14: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 14 
(3) 001674 000001 LINE14: .BLKW 1 ALL LINES SELECTED 
(3) 001676 000001 PARI4: . 1 ; PARAMETERS 
it 001700 000001 MANT14: . 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001702 000001 DZCR15: .BLKW 1 ; CONTROL yy REGISTER FOR DZ2V11_ NUMBER 15 
(3) 001704 000001 DZVC15: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 15 
(3) 001706 000001 LINE15: .BLKW 1 ALL LINES SELECTED 
(3) 001710 000001 PARI5: .BLKW 1 ;PARAMET 
ty 001712 000001 MANTIS: . 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001714 000001 DZCR16: .BLKW 1 CONTROL STATUS REGISTER FOR DZV11 NUMBER 16 
(3) 001716 000001 DZVC16: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZV11 NUMBER 16 
(3) 001720 000001 LINE16: .6LKW 1 sALL LINES SELECTED 
(3) 001722 000001 PARI6: . 1 ;PARAMET 
001724 000001 MANT -BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(3) 001726 000001 DZCR17: .BLKWw 1 CONTROL STATUS gt FOR DZV11 NUMBER 17 
(3) 0017 000001 DZvC17: .BLKw 1 RECEIVER AND BASE VECTOR FOR DZ2V11 NUMBER 17 
oi OO ar 000001 LINE17: .BLKw 1 sALL LINES SELECTED 
(3) 0017 000001 PARI7: . 1 ; PARAMETERS 
(3 001736 000001 MANT17: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
(1) 001740 177777 DZV.END: 177777 


120 
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(1) sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
| (1) [POINTERS TO SUBROUTINES CAN BE FOUND 
$1 IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 
| (1) 3 TRRAAKAAAAKSERACAAAASEKAAAAHAEKAAAAAAAAARAAARARARAAAAAAAAARAAERAAAEEREEE 
| (1) fmm eee eo Fe Se UTM HZ OB SH BT Be BMI BF POO Tew Dew e wT BBS see SOB es Se egme se Bo enmwenr— 
(1) 001742 " AB: 
(3) 104400 ADVANCE=TRAP+0 ;CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 
(2) 001742 006306 -ADVANCE 
(3) 104401 SCOP1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
(2) 001744 004620 P 
(3) 104402 TYPE=TRAP+2 sCALL TO TELETYPE OUTPUT ROUTINE 
(2) 001746 004644 . TYP 
(3) 104403 INSTR=TRAP+3 sCALL TO ASCII STRING INPUT ROUTINE 
(2) 001750 005412 - INSTR 
(3) 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 
(2) 001752 005516 . INSTER 
(3) 104405 PARAM=TRAP+5 3CALL TO NUMERICAL DATA INPUT ROUTINE 
(2) 001754 005536 P 
(3) 104406 SETFLG=TRAP+6 sCALL TO SET FLAG ROUTINE 
(2) 001756 010150 .SETFLG 
(3) 104407 SAVUS=TRAP+7 ;CALL TO REGISTER SAVE ROUTINE 
(2) 001760 005736 - SAV 
(3) 104410 RESOS=TRAP+10 ;CALL TO REGISTER RESTORE ROUTINE 
(2) 001762 005776 5 
(3) 104411 CONVRT= TRAP+11 ;CALL TO DATA OUTPUT ROUTINE 
(2) 001764 006030 -CONVRT 
(3) 104412 CNVRT=TRAP +12 3CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
(2) 001766 006034 RT 
(3) 104413 DEVICE.CLR=TRAP+13 ;CALL TO ISSUE A DEVICE CLEAR 
(2) 001770 006234 -DEVICE.CLR 
(3) 104414 DELAY=TRAP+ 14 sCALL TO DELAY FOR FAST CPU'S 
(2) 001772 006266 LAY 
(3) 104415 PARMD=TRAP+15 sCONVERT DECIMAL STRING TO OCTAL 
(2) 001774 011154 .PARMD 
(3) 104416 PAWCH=TRAP+16 SET FLAG ECHO OR CABLE 
(2) 001776 010270 -PAWCH 
(3) 104417 DCLASM=TRAP+17 sCLEAR DEVICE, SET MAINT. BIT IF I MODE 
(2) 002000 006254 ‘ 
(3) 104420 SHIF T=TRAP+20 ;CALL TO ROTATE LINE POINTER 
(2) 002002 006320 SHIFT 
(3) 104421 LPRSET=TRAP+21 ;CALL TO SET UP LPR DEVICE REGISTER 
(2) 002004 006336 el 
(3) 104422 BUF SET=TRAP+22 ;CALL TO ZERO BUFFER AREA 
te 002006 006376 -BUF SET 
(1) e 8S oS Rp ow Ge SE ce er ee SS eVee anew rn eee oe ecw were won Vow we ewe an awe aw = (Se Se am mo Se Go RD ae GS Se am a om oe 
(1) FT RRAAAERAAAEREREEAEEAAEAAEEEREAAEAAAEAERARERAERERERARERERAA TAREE EEES 


SEQ 0033 


SS ES 
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CNDZBA.P11 15=DEC=82 14:35 APT PARAMETER BLOCK SEQ 0034 
(1) 3DZV11 hp 3 AND REGISTER INDIRECT POINTERS 
“3 WORKING AREA 
(1) 002010 160040 DZVCSR: 160040 sR/ 

(1) 002012 160041 HDZVCSR:16004; ;R/W 

(1) 002014 1eones DZVRBUF :160042_ ;READ ONLY 

(1) 002016 16004 HDZVRBUF :160043 ;READ ONLY 

(1) 002020 sea DZVLPR: 160042 ;WRITE ONLY 

(1) 002022 16004 HDZVLPR: 160043 WRITE ONLY 

(1) 002024 160044 DZVTCR: 16004 Rl 

(1) 002026 160045 HDZVTCR:160045 ;R/W 

(1) 002050 160046 SR: 160046 READ ONLY 

(1) 002032 160047 HDZVMSR:160047 READ ONLY 

(1) 002034 160046 DZVTDR: 160046 ;WRITE ONLY 

43 002036 160047 HDZVTDR:160047 ;WRITE ONLY 

$38 sDEFAULT DZV VECTORS 

(1) 002040 000300 DZVRIV: 300 amet INTR VECTOR 
(12 002042 000302 DZVRIS: 302 sREC_INTR STATUS 
(1) 002044 000 DZVTIV: 304 tb INTR VECTOR 
Hi 002046 000306 DZVTIS: 306 sXMIT INTR STATUS 
(1) 


le Ri un RS ite a8 2: 


CNDZB-A MACY11 AD ae | 15=DEC-82 14:38 PAGE 81-17 
CNDZBA.P11 15=DEC-82 14:35 APT PARAMETER BLOCK SEQ 0035 

(1) 

() sTIME TABLE FOR RELATIVE TIMING TESTS 

(1) 

(1) 002050 TMTBL: 

(1) 002050 000000 T50: 0 

(1) 002052 000000 175: 0 

(1) 002054 000000 T110: QO 

(1) 000000 T134: QO 

(1) 002060 000000 T150: 0 

(1) 002062 000000 1300: 0 

(1) 002064 000000 T600: 0 

(1) 002066 000000 T1200: 0 

(1) 002070 000000 T1800: 0 

(1) 72 000000 T2000: 0 

(1) 002074 000000 5445 0 

(1) 002076 000000 T3600: 0 

(1) 100 000000 T4800: 0 

(1) 002102 000000 7 0 

(1) 002104 000000 0 

(1) 002106 000000 TEIGHT:0 

(1) 002110 000000 TSEVEN: 0 

(1) 002112 000000 0 

(1) 002114 000000 TFIVE: 0 
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4:35 PROGRAM INITIALIZATION AND START UP. 


O01 160 


000024 
001420 
001412 
001252 


001304 
001306 


004310 


176764 


K 3 oh 


tg INITIALIZATION 
; TERRUPTS 


[LOCK OUT IN 
[SET UP PROCESSOR STACK 
[SET UP POWER FAIL VECTOR 
[CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
sTYPE TITLE MESSAGE 
START: 
RESET ZCLEAR THE WORLD. START NEW ENVIRONMENT 
V #STACK,SP 7SET UP STACK 
MIPS) so ‘LOCK QUT INTERRUPTS 
V #SPWRON,a#24 :SET UP POWER FAIL VECTOR 
CLR SPASS :CLEAR PASS COUNT 
CLRB © $ERFLG :CLEAR ERROR FLAG 
MOV #DZV.MAP, ACTIVE :GET MAP POINTER. 
MOV #1,RUN [POINT POINTER TO FIRST DEVICE. 
CLR SERTTL TCLEAR ER 
CLR SERRPC CLEAR LAST ERROR POINTER 
CLR STSTNM SSET UP FOR TEST 1 
MOV #. START, SLPADR SET UP FOR POWER FAIL BEFORE 
sSEt uP FOR. SMALL 1 surich REGISTER CO COMPATIBILITY 
MOV aDISPREG. DISPLAY ;POINT TO SOT TUARE DISPLAY REGISTER 
z:THE FOLLOWING TWO LINES DELETED TO BE FALCON SPECIFIC. 
: CALL ALCON : CHECK FOR FALCON (KXT11) z2GPA 
3 BEQ 10008" : 33GPA 
CALL FALCINI : YES, INIT FOR FALCON. SIGPA 
1000S: : GPA 
TSTB —s INIFLG ZHAVE WE ALREADY BEEN HERE TODAY? 
BNE SIF $0, SKIP PRINTING THE TITLE 
CMP a#42,#SENDAD  :I1F RUNNING {UNDER ACT 
BEQ 1 [DON'T PRINT TITLE 
TYPE MTITLE [PRINT THE DIAGNOSTIC" $ TITLE 
1$: DECB  ~—.« INIFLG [SET THE ONCE ONLY FLA 
10$:  TSTB  $ENVM : DETERMINE WHETHER APT $12 1NG SHOULD BE DONE 
BPL 15$ NOT CH HECK FOR AUTO-SIZING 
JSR PC, SETAPT TOTHERWES ste 60 D T SiziNe FROM ETABLE 
JMP 105$ :GO PRINT 02V STATUS TABLE 
15$: TST avd2 : CHAINED UNDER XXDP ?? r:GPA 
BEQ 16$ : BR 33 
CALL SETAPT : YES, SET-UP FROM ETABLE :GPA 
JMP 105$ + AND PROCEED *:GPA 
16$: CALL  GETSWR 2 GET AN INITIAL SUR 2:GPA 
BIT #SWO0,aSwR SRESELECT 
BNE 208 SIF YES, Go SET UP THE INFORMATION 
JMP 5$ SIF NO, SKIP THE INTERROGA 
208: MOV Div. MAP,RO :POINT TO THE BEGINNING OF THE MAP TABLE 
CLRB FLG ; SURE A MAP GETS PRINTED 
25$: CLR RODS [CLEAR A TABLE ON 
CMP RO #02V.END HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
BNE 4 z1F CLEAR THE NEXT LOCATION IN THE TABLE 
DECB ~— INIFLG : INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 


3THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 


SEQ 0036 


ee a ee: 6 ee 
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024 CNDZBA.P11 15=DEC=82 14:35 PROGRAM INITIALIZATION AND START UP. SEQ 0037 


a : TABLE AND SET UP THE DIAGNOSTIC. 
(1) :GET THE BASE ADDRESS OF THE pz7v11°S 
(1) 00235 GETCSR= POINTER FOR FALCON TWEAKER. z2GPA 
(2) 002352 10440 INSTR SAL THE STRING IN TINE 
(2) 002354 003044 91$ :POINTER TO MESSAGE TO BE 
(2) 002356 104405 [CALL THE OCTAL TO ASCII C 
ts} 002360 0000 160000 sLOWEST LEGITIMATE VAL OF EXPECTED RESPONS 
(2) 002362 163770 163770 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002364 DZCRO :POINTER TO MAP LOCATION TO BE FILLED 
(2) 002366 007 BYTE 7 sMASK OF INVALID BITS Ay tend PARAMETER 
(2) 002367 001 “BYTE 1 ‘NUMBER OF PARAMETERS TO STORE 
(1) 002370 013737 001500 001174 MOV DZCRO, $BASE :COPY BASE ADDRESS TO ETABLE 
(1) sGET THE BASE VECTOR ADDRESS 
| (1) 002376 GETVEC= 3 POINTER FOR FALCON TWEAKER.  ;;GPA 
(2) 002376 104403 INSTR 3CALL THE STRING INPUT ROUTINE 
(2) 002400 003110 92$ POINTER TO MESSAGE TO BE PRINTED 
(2) 002402 104405 PARAM TALL THE OCTAL TO ASCII CONVERT ROUTINE 
(2) 002404 000300 300 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002406 000776 776 SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002410 001502 DZ2VvCO :POINTER TO MAP LOCATION TO BE FILLED 
; (2) 002412 003 BYTE 3 *MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 002413 001 “BYTE 1 [NUMBER OF PARAMETERS TO STORE 
(1 002414 013737 001502 001170 MOV DZVCO,$VECT1  :COPY VECTOR TO ETABLE 
(1) is. THE MODE OF OPERATION (E,1,S) 
(2) 002422 104405 in STR 3CALL THE STRING INPUT ROUTINE 
(2) 002424 0033 6$ *PO ~- TO THE MESSAGE TO BE PRINTED 
(2) 002426 104406 SETFLG CAL LL THE MAINTENANCE FLAG SETUP ROUTINE 
| (2) 002430 001510 MANTO ‘THIS IS THE FLAG BEING SETUP 
(1) :GET THE NUMBER OF DZV11°S RUNNING 
(2) 002432 104403 INSTR set THE RY RING INPUT ROUTI 
(2) 002434 003274 95$ POINTER TO MESSAGE TO BE PRI TE 
(2) 002436 104405 PARAM ‘CALL THE OCTAL TO ASCII CONVERT ROUTINE 
(2) 002440 000001 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002442 000020 16. SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
| (2) 002444 001344 $TMP1 [POINTER TO MAP LOCATION TO BE FILLED 
(2) 002446 000 BYTE 0 sMASK OF INVALID BITS FOR THIS PARAMETER 
(2) 002447 001 “BYTE 1 [NUMBER OF PARAMETERS TO STORE 
(1) 002450 012737 000017 001504 MOV #17,LINEO :SET UP DEFAULT LINES 
(1) 002456 012737 017470 001506 MOV #17470, PARO ‘SET UP DEFAULT LPR PARAMETE 
(1) SRECEIVER ON; 19.2 KBAUD; sEToP BITS: 8 BIT/CHAR 
(1) 002464 032777 000010 176612 BIT #SWO3,aSWR £00 YOU WANT PARAMETERS? 
(1) 002472 901402 BEQ 30$ SIF NO, SKIP THE PARAMETER CALL 
(1) 002474 004737 002654 JSR PC. 65$ [GET PARAMETERS 
(1) 500 012737 sd 001410 30$: MOV 1° SAVACTV 3 INITIALIZE i. DEVICE SELECTION PARAMETER 
(1) 002506 113737 001344 001414 MOVB srhet »DZVNUM COP x THE NUMBER EV 
(1) 002514 005337 001344 35$: DEC STM ;STMP 1 CONTAINS THE COUNT OF UNINITIALIZED 
(1) 002520 001404 BEQ tos i SELECTED D DEVIC 
(1) 002522 000261 SEC $ iSET Ait FLAG TO INDICATE AN ACTIVE DEVICE 
3 Bi33e Bashar ooet0 er SAEACTY eSB Tu PROEEDURE ASIN 
(1) 002532 $8757 001410 001346 40$: MOV SAVACTV,STMP2 :# OF TIMES 
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125 CNDZBA.P11.  15=DEC-82 14:35 PROGRAM INITIALIZATION AND START UP. SEQ 0038 
(1) 002540 012700 001500 MOV #DZCRO,RO :SET A POINTER TO THE SPECIFIED INFORMATION 
(1) 002544 012701 001512 MOV #DZCRI. R1 :POINT R1 TO THE REST OF THE L 
(1) 002550 012702 001204 MOV #$DDWO,R2 :POINT TO ETABLE'S DEVICE DESCRIPTOR WORDS 
(1) 002554 000241 CLC SINITIALIZE THE "'C’’ BIT FOR A ROTATI 
(1) 002556 006037 001346 ROR $TMP2 [SKIP MAPPING SETUP FOR DEVICE O- IT'S DONE 
(1) 002562 006237 001346 45$: ASR $TMP2 ISOLATE A SELECTION FLAG IN THE “C’’ BIT 
(1) 002566 103404 BCS 50$ ‘1S THIS DEVICE SELECTED? IF YES, GO LOAD TABLE 
(1) 002570 012711 177777 MOV #-1, (R1) ‘TE MINATE THE LIS 
(1) 002574 000137 003542 JMP 100 [G0 TO THE NEXT BLOCK 
(1) 002600 012011 50$: MOV (RO)+, (RT) AD R $$ 
(1) 002602 062721 000010 ADD #10, (R1)¢ SPOINT TO THE NEXT DZV11 ADDRESS VALUE 
| (1) 002606 012011 MOV (ROS+, (R1) ‘VECTOR 
| (1) 002610 062721 000010 ADD #10, (R1)¢ sPOINT TO THE NEXT VECTOR VALUE 
(1) 002614 012021 MOV (ROS+,(R1)+ LINES 
(1) 002616 012021 MOV (RO)+, (R1)+ : PARAMETERS 
(1) 002620 012021 MOV (RO) +, (R1)+ :MAINTENANCE MODE 
(1) 002622 000757 BR 45 
(1) 002624 032777 000010 176452 55$: BIT #Su03.aSuR ASK PARAMETERS ? 
(1) 002632 001002 BNE 60$ SIF NO, GO DO AUTO SIZING 
(1) 002634 000137 003542 JMP 100s :GO SET UP FOR AUTO SIZING 
| (1) 002640 004737 002654 60$: JSR PC,65$ :GO ASK PARAMETERS 
(1) 002644 105337 001422 DECB ~—s INI FLG SINSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
(1) 002650 000157 003600 JMP 105$ :GO TO THE NEXT BLOCK 
(1) 3GET THE ACTIVE LINES PARAMETER 
(1) 002654 65$: 
(2) 002654 104403 IusTR CALL THE STRING INPUT ROUT INE 
(2) 002656 003151 3$ POINTER TO MESSAGE TO BE P 
(2) 104405 PARAM ZCALL THE OCTAL TO ASCII CONVER 
(2) 002662 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONS 
(2) 002664 000017 17 ‘HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002666 001504 LINEO [POINTER TO MAP L ON TO BE FIL 
(2) 002670 360 -BYTE 360 MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 002671 001 "BYTE 1 [NUMBER OF PARAMETERS TO STOR 
| (1) 002672 105037 001423 CLRB ss HDRFLG SMAKE SURE THE CHANGES ARE PRINTED 
(1) :THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
(1 31S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 
(1) 002676 005737 001510 TST MANTO z1S STAGGERED THE MODE OF OPERATION? 
(1) 002702 100021 BPL 85$ [IF NOT, SKIP THIS SEGMENT 
| (1) 002704 013703 001504 MOV LINEO,R3 'GET A SCRATCH COPY OF THE ACTIVE LINES 
(1) 002710 006003 70$: ROR R3 [GET A LINE SELECTION BIT(EVEN NUMEER LINE) 
(1) 002712 103410 BCS 80$ s1F 17 IS SELECTED CHECK To SEE IF THe NEXT IS TOO 
(1) 002714 001414 BEQ 85$ [IF ALL HAVE BEEN CHE ONTINUE PR OCESSING P 
(1) 002716 203 ASR SIF IT IS 0 CHECK k TO cre Dre” HE NEXT IS TOO 
(1) 002720 10337 - Bcc 70$ SIF THIS ONE'S THE NEXT PAIR 
(1) 002722 104402 001356 75$: . TYPE  ,$QUES STHIS IS AN INCORRECT PARAMETER 
(1) 002726 104402 010074 TYPE MBADLN SLET THE USER KNOW ABOUT IT 
(1) 002732 00075 BR § :GO GET THE CORRECT PARAMETER 
(1) 002734 00177 80$:  BEQ 5$ SIF ANOTHER FLAG ISN'T SET, THERE'S AN ERROR 
(1) 002736 90620 ASR R3 :GET THE NEXT FLA 
(1) 002740 103370 BCC 75$ ZIF IT ISN'T SET, THERE'S AN ERR 
(1) 002742 00024 CLC S INITIALIZE THE BIT FOR TESTING OF THE NEXT PAIR 
(1) 002744 000761 70$ :GO TEST THE NEXT PAIR OF FLAGS 
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PROGRAM INITIALIZATION AND START UP. 


35 


Sonn 
COWWMOUSww 


RARER RREA 
¥ 


—™ 
~ 
—SWWe 


006304 


901346 


85$: 


90$: 


1001$: 


1058: 


1108: 


sGET THE LINE PARAMETER REGISTER ARGUMENT 


PNG NG ee ee BR RRR 


2 CALL THE sree ph ROUTINE 


3 T ROUTINE 
LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
SO ireR fy U yy VALUE _OF EXPECTED RESPONSE 


TER TO MAP LOCATION TO BE FILLED 


0 SMASK OF INVALID BITS FOR THIS PARAMETER 
1 [NUMBER OF PARAMETERS TO ST 
#LINEO,R2 :POINT TO THE LINE SELECTION PARAMETER 
#PARO,R3 [POINT TO THE CHOSEN PARAMET 
(R3) ,R4 zUSE BAUD RATE AS AN INDEX IN DELAY TABLE 
R LIGN INDEX ON WORD BOUNDARY 
DLYTBL(R4), puvent: 3SET THE DELAY COUNT FOR THIS BAUD RATE 

) LACE IN HIGH BYTE 
#10070 (R3) [PLACE EXTRA PARAMETERS INTO LOC 

»,12(R2) [LOAD THE LINES 


(Re)? *12(R $3 S 
#12,R2 ;POINT TO THE NEXT SET 
#12.R3 + .. OF BOTH PARAMETERS 

R3,#PARI7 SHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 

908 iF NOT, 792 LOAD SOME MORE PARAMETERS 
TURN TO CALLING BLOCK 

PS 00>/1ST CSR avbress sri :163770) : 

ECTOR 


poo yy 2 Vv ADDR 770): 
<200>/LINES ACTIVE od BIT <IN OC 
Seer BA UD RATE <IN OC 
<200>/# 0ZV11°S <IN OC TAL> 
<500>/RANTEHAN NCE MODE/ 

<200>/ CEXTERNAL <H325> ( 
<200>/ CINTERNAL <DZVCSRO3=1> 
<200>/ CSTAGGERED <H329> ( 
<200>/ENTER DELAY PARAMETER: / 


e577 -IMIFLS sONLY DO AUTO SIZE ON 1ST START 

ool i? acum igi t7= 

105$ z8R if "0, AUTO SIZE 

KXTFLAG Til ? 7:GPA 

1001$ ; SIP NET If NOT 72GPA 
YES, DON’T AUTO-SIZE :2GPA 

PC ,AUTO.SIZE 760 DO THE AUTO SIZE 

HORFLG ;MAS THE TABLE BEEN TYPED YET? 

1 if $O T TYPE AGAIN 

were MDIT ETS Tae? Tue Tame yi) SF oD 


rs | 
:? 
[ttre mA biAwen 
$s 


iv. “RAP RO [SET POIN.ER 


Simp) PC 
CnO)e at SET DATA 
1206 ea 


SEQ 0039 


B 4 
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CNDZBA.P11. 15=DEC-82 14:35 PROGRAM INITIALIZATION AND START UP. SEQ 0040 
(1) 003642 104411 115$:  CONVRT :CALL THE OCTAL TO ASCII CONVERSION ROUTINE 
(1) 003644 01 0156 XSTATQ :CONVERT THE DATA AT THIS ADDRESS 
(1) 003646 BR 11 :GO PRINT THE NEXT PA 
(1) 003650 013737 001410 001406 120$: MOV SAVACTV,DZVACTV : COPY BIT MAP OF ACTIVE DEVICES 
(1) 003656 113737 001414 001416 MO DZVNUM,SAVNO :COPY NO. OF DEVICES IN THE SYSTEM 
(1) 003664 032777 000100 17541 BIT SW06,aSWR SDESELECT SPECIFIC DEVICES?? 
(1) 003672 001431 BEQ 135$ :BR IF NO. 
(1) 003674 1218: 
(3) 003674 104403 INSTR :CALL THE STRING INPUT ROUTI 
(2) 003676 007764 MNEW :POINTER TO MESSAGE TO BE P 
(2) 003700 104 PARAM SCALL THE OCTAL TO ASCII CONVERT 
(2) 003702 000001 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003704 177777 177777 SHIGHEST LEGITIMATE VALUE 10F EXPECTED RESPONSE 
(2) 003706 001406 DZVACTY [POINTER TO MAP LOCATION T LL 
(2) 003710 .BYTE 0 [MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 003711 001 "BYTE 1 [NUMBER OF PARAMETERS TO STORE 
(1) 003712 023737 001406 001410 CMP DZVACTV,SAVACTV :IS VALUE VALID? 
(1) 003720 101403 BLOS 1228 71F YES BRANCH 
(1) 003722 104402 007636 TYPE MERR3 SIF NOT TYPE ERROR 
(1) 003726 000762 BR 121$ : THEN REASK QUESTION 
(1) 003730 105037 001416 122$: CLRB  SAVNO SINITIALIZE NO. OF ACTIVE DEVICES 
(1) 003734 013737 001406 001344 MOV DZVACTV,$TMP1 :COPY BIT MAP OF ACTIVE DEVICES 
(1) 003742 006237 001344 126$: ASR $TMP1 TROTATE OUT AN ACTIVE BIT 
(1) 003746 103002 BCC 127$ SIF NOT ACTIVE SKIP RECORDING IT 
(1) 003750 105237 001416 INCB = SAVNO ZINCREMENT NO. OF ACTIVE DEVICES 
(1) 003754 001372 127$: BNE 126$ :1F NOT DONE GO CONTINUE 
(1) 003756 032777 000020 175320 135$: BIT #SW04 ,aSWR [CHECK TO SEE IF DELAY COUNT CHANGES 
(1) 003764 001407 BEQ 140$ [IF NOT, GO CLEAR VECTOR AREA 
(2) 003766 104403 INSTR SCALL THE STRING INPUT 
(2) 003770 003510 [POINTER TO MESSAGE TO BE 
(2) 003772 104405 PARAM [CALL THE OCTAL TO ASCII CONVERT 
(2) 003774 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003776 177777 177777 SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(3) 004000 006304 DLYCNT :POINT MAP LOCATION TO BE FILL 
(2) 004002 000 .BYTE 0 MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 004003 001 "BYTE 1 : R OF PARAMETERS TO STORE 
(1) 004004 012700 000300 140$: MOV #300,R0 NUMBER TO CLEAR THE FLOATING 
(1) 004010 012701 000302 MOV #302,R1 SECTOR AREA. 
(1) 004014 010120 145$: MOV R1,(RO)+ SSTART PUTTING 'PC+2 = HALT’ 
(1) 004016 005021 CLR (Ri)+ SIN VECTOR AREA. 
(1) 904020 922081 CMP (RO)+, (R1)¢ [POP POINTERS 
(1) 004022 005737 017324 TST KXTFLAG : IF FALCON... r:GPA 
(1) 004026 001403 BEQ 1002$ T:GPA 
(1) 004030 020027 000400 CMP RO, #400 3...QUIT AT 400. :GPA 
(1) 004034 000402 402 : SKIP NEXT [:GPA 
(1) 004036 1002$: 33GPA 
(1) 004056 022700 001000 CMP #1000,R0 ZALL DONE?? 
(1) 004042 001364 BNE 145$ ‘BR IF NO. 
i) :TEST START AND RESTART 
(1) . 
(1) 004044 012706 001120 .BEGIN: MOV #STACK,SP :SET UP STACK 
(1) 050 0669" 900200 MTPS smASK 3LOCK ouT AANTER RUPTS 
(1) 054 00 737 TST and +1S PROGRAM UNDER MONITOR CONTROL 
(1) 060 001 BNE 2$ :BR IF YES 
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28 CNDZBA.P11 1Seoee “83 14 14 238 PROGRAM INITIALIZATION AND START UP. SEQ 0041 

a) 904 2777 000004 175214 BIT #glT2, aswR :CHECK FOR LOCK ON TEST 
(1) 0 BEQ 1$ 'BR IF NO LOCK DESIRED. 
(1) 00407 Moa 007662 TYPE  ,MLOCK [TYPE LOCK SELECTED. 
(1) 006076 012737 000240 004366 MOV #NOP, TTST ZADJUST SCOPE ROUTINE. 
(1) 004104 900403 BR 28 ALONG. 
(1) 006106 013737 004614 004366 1$: MOV BRw, TTST [PREPARE NORMAL SCOPE ROUTINE 
(1) 004114 012737 010450 001252 28: MOV acycLe SLPADR :START AT MtycLe™™ FIND WHICH DEVICE TO TEST 
(1) 006122 113737 001416 001415 MOVB NO,SAVNUM COPY NO. OF ACTIVE DEVICES 
(1) 004130 104402 00755 Tee [TYPE "RUNNING 
(1) 006134 000177 175112 am *START TESTING 

8404 22GPA DRGEND orate OR END PASS DVDZB-A >,10. 
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29 jCNDZBA.PTT 15=DEC=82 14:35 END OF PASS ROUTINE SEQ 0042 
| 8405 sEND_OF PASS 

(3) YPE NAME OF TEST 
(2) CUPDATE PASS COUNT 
(2) CH ECK FOR EXIT TO ACT=11 
(2) ART TES 
(3) .SBTTL inp OF PASS ROUTINE 
(4) FRRAAAAAAAAAAEREREREEAEEEEAATEEAAAAAREEREREEEEERARRERERERREREEEE 
(3) : INCREMENT THE PASS NUMBER ($PASS) 
(3) :*IF THERES A MONITOR GO TO IT 
3) [IF THERE ISN'T JUMP TO (fete 
(3) 004140 SEOP: 
(5) 004140 000004 SCOPE 
(5) 004142 005037 001262 CLR SERRPC :CLEAR LAST ERROR PC 
(5) 004146 105037 001247 CLRB = SERFLG : CLEAR ERROR F LAG 
(5) 004152 104402 007527 TYPE §,MEPASS :TYPE END PASS” 
(5) 004156 104408 007711 TYPE  MCSRX ;TYPE CSR 
(5) 004162 104412 004324 CNVRT ; IT 
(5) 004166 104402 007717 TYPE [MVECX 3TYPE VECTOR 
(5) 004172 104412 004332 CNVRT 
(5) 004176 00523 001126 INC $PASS tRAISE “PASS COUNT 
(5) 004202 104402 00772 TYPE § ,MPASSX :TYPE PASSES 
(5) 004206 104412 004340 CNVRT >XPASS :SHOW I 
(5) 004212 005337 001126 EC $PASS RESTORE PASS COUNT 
(5) 004216 104402 0077 TYPE ,MERRX [TYPE ERRORS 
(3) $0255 ooe33 Sorts a $DEVCT TINC DEVCNT FOR AP 
(5) $02589 op 3gas ape ts DECB  SAVNUM ZARE ALL DEVICES TESTED? 
(5) 004236 001030 BNE SDOAGN F 
(5) 904240 113737 001416 001415 MOVB = SAVNO, SAVNUM ERESTORE THE COUNT 
(3) 004246 005037 001354 CLR STIMES ::ZERO THE NUMBER OF ITERATIONS 
(3) 004252 005237 001126 INC SPASS iS INCREMENT THE PASS NUMBER 
(3) 004256 042737 100000 001126 BIC #100000,$PASS ::DON'T SM Low A NEG. NUMBER 
(3) 004264 005327 DEC (PC)+ 7: LOOP? 
(3) 004266 000001 SEOPCT: .WORD 1 
(3) 004270 003013 BGT SDOAGN r 3 YES 
(3) 004272 012737 MOV (PC)+,a(PC)* ::RESTORE COUNTER 
(3) 004274 000001 SENDCT: .WORD 1 

” (3) 004276 004266 $EOPCT 
(3) 004300 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
(3) 004304 001405 BEQ $DOAGN [:BRANCH IF NO MONITOR 
(3) 004306 000005 RESET 7: CLEAR THE WORLD 
(3) 004310 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 
(3) 004312 000240 NOP +: SAVE ROOM 
(3) 004314 000240 NOP 33 
(3) 004316 000240 NOP S:ACT11 
(3) 004320 SDOAGN: 
(3) 004320 000137 JMP a(Pc)+ 7 :RETURN 
(3) 004322 010450 SRTNAD: .WORD (CYCLE 
(3) 
(3) 
(2) 004324 000001 XCSR: 1 
(2) 004326 0 002 .BYTE 6,2 
(2) 004330 00201 DZVCSR 
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11 =DEC-82 14:35 END OF PASS ROUTINE 

(2) 004332 000001 XVEC: 1 

(2) 004334 003 002 .BYTE 3,2 

(2) 004336 002040 DZVRIV 

(2) 004340 000001 XPASS: 1 

(2) 004342 006 002 .BYTE 6,2 

(2) 004344 001126 $PASS 

(2) 004346 000001 XERR: 1 

(2) 004350 002 .BYTE 6,2 

(2) 004352 001256 $ERTTL 

(2) ZSCOPE LOOP AND ITERATION HANDLER 

(2) 

(3) .SBTTL SCOPE HANDLER ROUTINESTARS 

(3) :*THIS ROUTINE CONTROLS THE LOOPING O 

(3) i #AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(3) LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

(3) <STNE SOITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(3) :*SW14=1 LOOP ON TEST 

(3) :*SW11=1 INHIBIT ITERATIONS 

(3) 7 *CALL 

(3) 3* SCOPE 3; SCOPE=I0T 

(3) 004354 SSCOPE: 

(5) 004354 005037 001262 ~SCOPE: CLR SERRPC ZCLEAR LAST ERROR PC. 

(5) 004360 022716 012012 CMP #TST1*2, (SP) i18 THIS THE SCOPE AT THE BEGINNING OF TST1? 
(2) igre 60040 TTST 4 eee ‘Goro Os endl fier 

(5) iki 900506 174714 TSTB = aS TKS : KEYBOARD 

(5) 004374 100067 BPL SOVER BR 

(5) 004376 017766 174710 177776 MOV a$TKB,-2(SP) :CLEAR DONE BIT 

(3) 004404 032777 040000 174672 1S: BIT #BI1T14,aSWR 

(3) 004412 001060 BNE $ “YES IF SW14=1 

(3) :WHHHASTART OF CODE FOR THE XOR féSTeabense 

(3) 004414 000416 $XTSTR: BR o$ z1F RUNNING ON 

(3) 3 THIS INSTRUCTION 

(3) 004416 013746 000004 MOV a#ERRVEC, gu (sP) 

(3) 004422 012737 004442 000004 MOV #5$ arERRV VEC ise F 

(3) 004430 005737 177060 TST ani? :T 

(3) 004434 012637 000004 MOV (SP) +, a#ERRVEC i :RESTORE THE ERROR VECTOR 
(3) 004440 000436 n BR SSVLAD 7G0 TO THE NEXT TE 

(3) 004442 02262 5$: CMP (SP)+, (SP)+ SI CLEAR THE STACK AFTER A TIME OUT 
(3) 004444 012637 000004 MOV (SP)+,QMERRVEC 3 ;RESTORE THE ERROR VECTOR 
(3) 004450 000441 BR *LOOP ON T 

(3) 00445 GS: ;MMmAHEND OF CODE FOR THE XOR TESTERA#AE 

(3) 004452 105737 001247 $: TSTB = SERFLG 33HA 

(3) 004456 001404 BEQ :BR IF NO 

(3) 004460 105037 001247 4$: CLRB = SERFLG 3 ZERO THE ERROR F 

(3) 004464 005037 001354 CLR STIMES L H 

(3) 004470 032777 004000 174606 33: BIT #B1T11,aSWR :EINNIBIT ITERATIONS? 

(3) 004476 001011 BNE 1$ F YES 

(3) 004500 005737 001126 TST SPASS ziIF FIRST PASS OF PROGRAM 
(3) 004504 001406 BEQ 1$ INHIB 

(3) 004506 00323 901250 INC SICNT iF INCREMENT ITERATION 

(3) 004512 023737 001354 001250 CMP STIMES,SICNT 

(3) 004520. 00201 BGE SOVER ‘iBR iF 


F SUBTESTS. IT WILL INCREMENT 


ON IT 
(IF LOCK SWO2=1; THIS LOC =240) 


IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
sLOOP ON PRESENT TEST? 


THE **XOR"* Ma i CHANGE 
TO A_“NOP** (NOP=240) 
AVE THE CONTENTS OF THE ERROR VECTOR 

OR TIMEOUT 


AN ERROR OCCURRED? 


NUMBER OF ITERATIONS TO MAKE 


COUNT 
THE NUMBER OF ITERATIONS MADE 
MORE ITERATION REQUIRED 


SEQ 0043 


nr rr ee 
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on 7BA.P11 -15=DEC-82 14:35 SCOPE HANDLER ROUTINESTARS SEQ 0044 
| GB 904522 012737 01 001250 1$: MOV —s- #1, SICNT ::REINITIALIZE THE ITERATION COUNTER 
(3) 004580 018737 004616 001854 MOV, SHACNTSTIMES SET NUMBER OF ITERATIONS TO DO 
| (3) 004536 105237 001246 $SVLAD: INCB $TSTNM 5 EEUNT TEST NUMBERS 
| GB 004548 118737 gOre4g 001124 MOV  $TSTNM,STESTN 3:SET TEST NUMBER IN APT MAILBOX 
(3) 004580 011687 00125 MOV (SP),$LPADR SAVE SCOPE LOOP ADDRESS 
(3) 004554 015777 001246 174524 SovER: MoV $TSTNM,@DISPLAY ::DISPLAY TEST 
(3) 004562 013716 00125 MOVs $SLPADR{(SP)  :FUDGE RETURN AD ss 
| (5) 004566 004737 007046 JSR —sPC SERV.G ‘FIND OUT IF “G WAS TYPED 
| 5) 004572 108037 001424 CLRB 4 MNTFLG CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
(5) 004576 005737 001372 TST MODE ‘HAS THE MODE BEEN CHANGED? 
(5) 004602 001003 BNE 4$ SIF NOT INTERNAL. GO DO A TEST 
(5) 004604 112737 000010 001424 MOVB  &#MAINT,MNTFLG IF INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
(5) 004612 000002 4$: RTI °G0 DO THE TEST 
(5) 004614 000406 BRW: 406 
(3) 004616 000005 SMXCNT: § S:MAX. NUMBER OF ITERATIONS 
a) ;CHECK FOR FREEZE ON CURRENT DATA 
a) 
(1) 004620 032777 001000 174456 .SCOP1: BIT #SwO9,aSwR 1S $wO9=1(SET)? 
(1) 004636 001405 BEQSté*~TS ‘BR IF NOT SET. 
(1) 004630 005737 001364 TST —CLOCK 1S THERE A TIGHT LOOP SPECIFIED? 
(1) 004634 001402 BEQStié«dT SS TIF NO, N 
(1) 004636 013716 001364 MOV _—CLOCK, (SP) TIF YES, GOTO THE ADDRESS IN LOCK. 
(1) 004642 000002 1$: RTI °60 BACK. 
(1) 004644 032777 010000 174432 .TYPE: BIT  #Swi2.aswR INMIBIT ALL PRINTOUT? 
(1) 904652 001403 BEQ «$TYPE TIF TYPE 
(1) 004654 062716 000002 ADD «#2, (SP) SKIP OVER MESSAGE POINTER 
a) RTI SRETURN TO WHERE PROCEDURE WAS INVOKED 
(2) .SBTTL TYPE ROUTINE 
(3) Z3 SRAAEAAAAAAAAARAAATAEEAEAAAAAEAAAAAAAAAAEAAAAAARAAAAAAEAAAEERERAREEE 
(2) S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
(3) ;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(2) s*NOTE1: he CON hE THE CHARACTER "9 BE USED AS THE FILLER CHARACTER. 
(5) + eNOTE2: SILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
2) ; #NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
(2) i *CAL 
(2) 31) “USING A TRAP INSTRUCTION 
2) itig «TYPE oMESADR :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
(5) oe TYPE 
(3) te MESADR 
; 
(3) 004662 105737 001323 $TYPE: TSTB  $TPFLG ::1$ THERE A TERMINAL? 
(3) 004666 100002 BPLStiédaSS FY 
(5) 004670 000000 HALT CTRALT HERE IF NO TERMINAL 
(5) 004672 000430 BR 3$ : SLEAVE 
(2) 904674 910046 18: MOV RO, -¢ PD *SAVE RO 
(5) 004676 017600 000002 MOV —a2tSP).RO SIGET ADDRESS OF ASCIZ STRING 
(3) 006702 122737 000001 001140 MP8 WABTENY,SENV —]RUNNING IN 
2) 906719 001011 BNE CHECK FOR APT CONSOLE 
(5) 004712 132737 000100 001141 BIT® - SAPTSPOOL.SENVM 2:SPOSL MESSAGE TO APT 


nnn ee 5 5 ee ne ee es ee ae 
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seen TYPE ROUTINE SEQ 0045 
| (2) 004720 001405 BEQ 628 NO,GO CHECK FOR CONSOLE 
004722 010037 004732 MOV RO,61$ SETUP MESSAGE ADDRESS FOR APT 
004726 00515 JSR PC; SATY3 at a 4 MESSAGE TO A 
004732 999000 61$:  .WORD S:MESSAGE ADDRESS 
004734 132737 000040 001141 62$: BITB #APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
004742 001003 BNE 60$ T:YES,SKIP TYPE OUT 
004744 11204 23: MOVB (RO) +,=(SP) 2 PUSH CHARACTER TO BE TYPED ONTO STACK 
004746 00100 BNE 4$ ":BR IF IT ISN'T THE TERMINATOR 
004750 005726 TST (SP)+ SIF TERMINATOR POP IT OFF THE STACK 
004752 012600 60$: MOV (SP)+,RO S:RESTORE RO 
004754 062716 000002 3$: ADD #2,(SP) sZADJUST RETURN PC 
004760 00000 RTI +: RET 
004762 122716 000011 4$: CMPB #HT, (SP) 3:BRANCH IF <HT> 
004766 001430 BEQ 
004770 122716 000200 CMPB #CRLF, (SP) szBRANCH IF NOT <CRLF> 
004774 001006 BNE 
004776 005726 TST (SP)+ 3;POP <CR><LF> pouty 
005000 104402 TYPE t:TYPE A CR AND 
005002 001357 SCRLF 
5 105037 005140 CLRB SCHARCNT 3:CLEAR CHARACTER COUNT 
005010 000755 BR 2$ t:GET NEXT CHARACTER 
005012 004737 005074 5$: JSR PC ,STYPEC £:G0 TYPE THIS CHARACTER 
005016 123726 001322 6$: CMPB ss SFILLC,(SP)*  ::1S IT TIME FOR FILLER CHARS. ? 
005022 001350 BNE 2$ t:1F NO GO GET 
005024 013746 001320 MOV SNULL,-(SP) z3GET # OF FILLER CHARS” * NEEDED 
sAND THE NULL CHAR. 
005030 105 000001 7$: DECB.—s«A1 SP) {DOES A MULL NEED fo BE TYPED? 
0050 00277 BLT 3;6R IF THE NULL OFF OF STACK 
004737 005074 JSR PC ,STYPEC 3360 TY 
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PE A “NULL 
005140 DECB SCHARCNT 33D0 NOT COUNT AS A COUNT 
BR 7$ ooP 


S 
3 
o 
3 


HORIZONTAL TAB PROCESSOR 


005050 112716 000040 8$: MOVB Z:REPLACE TAB WITH SPACE 
005054 004737 005074 9$: JSR oc. $type EC 33 TYPE A SPACE 

005060 132737 000007 005140 BITB #7. $CHARCNT ::BRANCH IF NOT AT 

005066 001372 BNE 9S" 33 TAB STOP 

005070 005726 TST (SP)+ [POP SPACE OFF STACK 

005072 000724 BR 23 7:GET NEXT CHARACTER 

005074 105777 174214 STYPEC: TSTB a$TPS t:WAIT UNTIL PRINTER IS READY 
005100 100375 BPL STYPEC 

005102 116677 000002 174206 MOV 2(SP), a$TPB z;LOAD CHAR TO BE TYPED INTO DATA REG. 
005110 122766 000015 000002 cCMPB #CR,2(SP) 3318 CHARACTER A CARRIAGE RETURN? 
005116 001003 BNE 1$ ANCH IF 

905120 105037 005140 CLRB = $CHARCNT $I YES==CLEAR CHARACTER COUNT 
005124 000406 BR TYPEX x 

005126 122766 000012 000002 15: CMPB ss @LF, 2( SP) t:1S CHARACTER A LINE FEED? 
005134 001402 BEQ STYPEX 3 BRAN CH IF YES 

Spe128 0p0000 ScHARCNT. WORD O- SS ERARACTER COUNT STORAGE 
005142 000207 STYPEX: RTS PC 
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033 /CNDZBA.P11 15=DEC=82 14:35 APT COMMUNICATIONS ROUTINE SEQ 0046 


(2) .SBTTL APT COMMUNICATIONS ROUTINE 
is} PRA RAAAASLAAALALALALAL ETE ETE EET TT TTT TT TEETER EEE EERE EERE aS 
' (2) 005144 «112737 000001 005410 $ATy1: Move #1 »SFFLG z:TO REPORT FATAL ERROR 
(2) 005152 112737 000001 005406 S$ATY3: MOVB 4#1.$MFLG ':TO TYPE A MESSAGE 
' = (2) 005160 ©000403 BR SATYC 
| (2) (005162 +112737 000001 005410 SATY4: MOVB 4#1,$FFLG ::70 ONLY REPORT FATAL ERROR 
| 3) 005170 SATYC: 
(4) 005170 010046 MOV RO,-(SP) :7PUSH RO ON STACK 
(4) 005172 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
(2) 005174 105737 005406 TSTB © $MFLG 33SHOULD TYPE A MESSAGE? 
(2) 005200 001450 BEQ 5% TIF NOT: 
| (2) 005202 122737 000001 001140 CMPB = WAPTENV, SENV : SOPERATING UNDER APT? 
(2) 005210 001031 BNE ZF NOT: BR 
(2) 005212 132737 000100 001141 BIT8 §§ #APTSPOOL.SENVM 3 SHOULD SPOOL MESSAGES? 
(2) 005220 001425 BEQ 
(2) 005222 017600 000004 MOV a4(SP),RO SIGET MESSAGE ADDR. 
(2) 005226 062766 000002 000004 ADD #2,4(SP) RETURN ADDR. 
(2) 005234 005737 001120 1$: TST SMSGTYPE rSEE IF "BONE wi LAST XMISSION? 
(2) 005240 001375 BNE 1$ t:IF NOT: WAIT 
(2) 005242 010037 001134 MOV RO, SMSGAD 
(2) >;PUT ADDR IN MAILBOX 
(2) 005246 105720 2$: TSTB 43s (ROD* z:FIND END OF MESSAGE 
(2) 005250 001376 BNE 
(2) 005252 163700 001134 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(2) 005256 006200 ASR RO 33GET MESSAGE LNGTH IN WORDS 
(2) 005260 010037 001136 MOV RO, SMSGLGT :PUT LENGTH IN MAILBOX 
(3) 3264 12737 000004 001120 MOV #4. SMSGTYPE tS TELL APT TO TAKE MSG. 
(2) 005272 ares BR 5$ 
(2) 005274 017637 000004 005320 38: MOV a4 (SP) ,4$ 3zPUT MSG ADDR IN Jsr LINKAGE 
(2) 005302 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
(4) 005310 013746 177776 MOV 177776, =(SP) 72PUSH 199776 ON STACK 
(2) 005314 004737 004662 JSR PC ,STYPE S:CALL TYPE MACRO 
(3) Sossse Se  caemal 
(2) 005322 105737 005410 10$: TSTB $FFLG 33 SHOULD REPORT FATAL ERROR? 
(2) 005326 001416 BEQ 12$ 
(2) 005330 005737 001140 TST SENV $ RUNNING UNDER APT? 
(2) 005334 001413 BEQ 12$ [IF NOT: BR 
(2) 005336 005737 001120 11$:  —=—*TST SMSGTYPE : SFINISHED LAST MESSAGE? 
(2) 005342 001375 BNE 1 F NOT: WAIT 
(2) 005344 017637 001122 MOV a4(SP),SFATAL ::GET ERROR 4 
(2) 00535 062766 2 000004 ADD #2,4(SP) RETURN ADDR. 
(2) 005 005237 001120 INC snécty ri TELL abi’ to TAKE ERROR 
(2) 005364 105037 005410 12$: CLRB  $FFLG *:CLEAR FATAL FLAG 
(2) 005370 105037 005407 CLRB ss SLFLG t:CLEAR LOG FLA 
(2) 005374 105037 005406 CLRB S:CLEAR MESSAGE FLAG 
(4) 005400 012601 V (SP)+,R1 7:POP $ 0 RI 
(4) 005402 012600 MOV (SP)+.RO ::POP STACK INTO RO 
(2) 005404 000207 RTS PC + :RETURN 
(2) 0054 000 SMFLG: .BYTE 0 [:MESSG. FLAG 
(2) 005407 000 SLFLG: .BYTE 0 
(2) *:LOG FLAG 
(2) 005410 000 SFFLG: .BYTE 06 ZrFATAL FLAG 
(2) 005412 EVE 
(2) 000200 APTSIZE=200 


ro - 


a a ee — ee 
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034 |CNDZBA.P11 15=DEC-82 14:35 APT COMMUNICATIONS ROUTINE SEQ 0047 
(2) 000001 APTENV=001 
(3) 000100 APTSPOOL=1 
(2) 000040 APTCSUP=04 
C1) :STRING INPUT ROUTINE 
(1) s 
(1) 005412 010346 INSTR: MOV R3,-(SP) sSAVE R3 ON STACK 
(1) 005414 010446 MOV R4,=(SP) TSAVE R& ON STACK 
(1) 005416 017637 000004 005434 MOV a4(SP),.MSG [GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
(1) 005424 062766 000002 000004 ADD #2,4(SP) SPOINT TO INSTRUCTION AFTER ADDRESS POINTER 
(1) 005432 104402 .INST1: TYPE [PRINT THE MESSAGE 
(1) 005434 000000 “MSG: 0 [MESSAGE IS POINTED TO FROM HERE 
(1) 005436 012704 010344 MOV #INBUF .R4 [POINT R4 TO THE INPUT BUFFER 
(1) 005442 012703 000007 MOV #7,R [SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
(1) 005446 105777 173636 1$: TSTB 3s aS TKS SHAS A CHARACTER BEEN RECEIVED? 
(1) 005452 100375 BPL 1$ SIF NO, KEEP WAITING FOR IT 
(1) 005654 117714 173632 MOVB a$TKB,(R4) 71F YES, SAVE IT IN THE INPUT BUFFER 
(1) 005460 142714 000200 BICB #200, (R4) [KEEP ONLY THE 7=BIT ASCII INFORMATION 
(1) 005464 122627 000015 CMPB sé (RG) +, #15 t1S THIS CHARACTER A LINE FEED? 
(1) 005470 001417 BEQ INSTRO SIF SO, TERMINATE THE INPUT SEQUENCE 
(1) 005672 105777 173616 2$: TST8 = aSTPS SIF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 
(1) 005476 100375 BPL SIF WE CAN'T, WAIT UNTIL WE CAN 
(1) 005500 017777 173606 173610 MOV a$TKB,a$TPB SECHO THE CHARACTER BACK 
(1) 005506 005303 DEC R3 SREDUCE THE NUMBER OF CHARACTERS RECEIVED 
(1) 005510 001356 BNE 1$ SIF WE DON'T HAVE 7, GO GET SOME MORE 
(1) 005512 012604 MOV (SP)+,R4 TIF WE HAVE 7, RESTORE R4 
(1) 005514 g12 03 MOV ($P)¢ R3 TRESTORE R 
(1) 005516 010346 .INSTE: MOV R3,-(SP) :SAVE R3 ON THE STACK 
(1) 905520 010446 MOV R4,=(SP) [SAVE R4 ON THE STACK 
(1) 005522 104402 001356 TYPE  ,$QUES SPRINT A QUESTION MARK... WHAT'S GOING ON? 
(1) 005526 000741 BR INSTI [GO PRINT THE MESSAGE AGAIN 
(1) 005530 012604 INSTR2: MOV (SP) +,R4 SRESTORE R4 
(1) 005532 012603 MOV (SP)+-R3 SRESTORE R3 
a 005534 000002 RTI [RETURN TO THE MAIN PROCEDURE 
(1) :CONVERT ASCII STRING TO OCTAL 
(1) . 
(1) 005536 010546 .PARAM: MOV RS,-(SP) :SAVE RS ON THE STACK 
(1) 005540 010446 MOV R4.=(SP) [SAVE R4 ON THE STACK 
(1) 005542 016605 000004 MOV 4(SP),R5 [GET THE SETUP INFORMATION POINTER 
(1) 005546 012537 003726 MOV (R5)+,LOLIM [SET THE LOW LIMIT FOR T 
(1) 005552 012537 005730 MOV (R5)+,HILIM [SET IME HIGH LIMIT FOR THE INPUT 
(1) 005556 012537 5732 MOV (R5)+,DEVADR SAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 
(1) 005562 112537 005734 MOV (R5)+.LOBITS | :GET THE MASK OF THE INCORRECT BITS 
(1) 005566 112537 005735 MOVB (R5)+.ADRCNT | :GET THE COUNT OF ITEMS TO BE STORED 
(1) 00557 010566 000004 MOV R5,4(SP) [POINT TO WHERE MAIN LINE PROGRAM WILL RESUME 
(1) 005576 00500 PARAM1: CLR R5 SINITIALIZE THE ASCII TO OCTAL RESULT WORD 
(1) 005600 012704 10344 MOV #INBUF ,R4 [POINT TO THE INPUT BUFFER 
(1) 005606 122714 O08 CMPB #15, (RG ‘1S THIS CHARACTER A CARRIAGE RETURN? 
(1) 005610 091420 BEQ PARERR t1F SO, PRINT THE MESSAGE AGAIN 
(1) 005612 121427 000060 1$: CMPB ss (RG) , #60 31S THIS CHARACTER BELOW THE NUMERIC RANGE? 
(1) 005616 002415 BLT PARERR :1F SO, GO PRINT THE MESSAGE AGAIN 
(1) 005620 121427 000067 CMPB ss (RG) , #67 [1S THIS CHARACTER ABOVE THE NUMERIC RANGE? 
(1) 005624 003012 BGT PARERR [IF SO, GO PRINT THE MESSAGE AGAIN 
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| (1) 005626 142714 000060 BICB #60 (RG) ISOLATE THE NUMBER THE CHARACTER REPRESENTS 
(1) 005632 «152405 B1SB Rass RS CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
/ 1) 005636 122714 000015 CMPB (RG) iis I HE NEXT CHARACTER A CARRIAGE RE TURN? 
(1) 3640 001406 BEQ tyAtt alts SIF $O, GO SEE IF NUMBER IS WITHIN LIMITS 
/ €1) 005642 00630 ASL R [CLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 
/ (1) 005644 ~=—006305 ASL R5 [CLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 
| 1) 005646 ~=006305 ASL R5 [MOV E THE STRING One” MORE TIME TO MAKE ROOM F 
Wd [NEXT THREE BITS 
/ (1) 005650 000760 BR 1$ :60 GET litt NEXT CHARACTER 
| 1) 005652 104404 PARERR: INSTER TTHERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
(1) 005654 000750 BR PARAM1 TRY ce TTiNG THE PARAMETERS AGAIN 
| (1) rTEST TO SEE IF NUMBER IS WITHIN LIMITS 
| @ “ 
(1) 005656 020537 005730 LIMITS: CMP RS,HILIM :DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
(1) 005662 101373 BHI PARERR TIF YES, ace PRINT THE MESSAGE AGAIN 
(1) 005664 020537 005726 CMP RS,LOLIM i1S THE RESULT LOWER THAN ALLOWED? 
| ¢1) 005670 103770 BLO PARERR s1F YES, GO PRINT THE MESSAGE AGAIN 
(1) 005672 133705 005734 BIT8 LOBITS,RS TARE ANY INCORRECT BITS SET IN THE RESULT? 
(1) 005676 001365 BNE PARERR SIF SO, GO PRINT THE MESSAGE AGAIN 
(1) ZSTORE NUMBER AT SPECIFIED ADDRESS 
(1) 005700 013704 005732 MOV DEVADR RG ;POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
(1) 005704 010524 1$: MOV 5, (R4S+ SSTORE THE RESULT 
(1) 005706 062705 000002 ADD a3. RS 3 CALCULATE THE NEXT DATUM 
(1) 00571 105337 005735 DECB = ADRCNT RED uce COUNT OF STORED RESULTS. IS IT EXCEEDED? 
(1) 005716 001372 BNE 1$ ; GO STORE THE NEXT DATUM 
(1) 005720 012604 MOV (SP)+,R4 bE tonE R4 
(1) 005722 012605 MOV (SP)+.R5 TRESTORE RS 
(1) 005724 000002 RTI [RETURN TO THE MAIN PROGRAM 
(1) 005726 000000 LOLIM: 0 :LOWEST ACCEPTABLE VALUE 
(1) 005730 000000 HILIM: 0 3HIGHEST ACCEPTABLE 
(1) 005732 000000 DEVADR: LOCATION WHERE RESULT WILL BE STORED 
(1) 0057 000 LOBITS: .BYTE 0 ZINCORRECT BITS MASK 
1) 005735 000 ADRCNT: .BYTE 0 [COUNT OF ITEMS TO BE STORED 
(1) ZSAVE PC OF TEST THAT FAILED AND RO-RS 
(1) " 
(1) 005736 016637 000004 001404 .SAVOS: MOV 4(SP), SAVPC gSAVE R7 (PC) 
(1) ZSAVE RO-RS 
(1) 005744 010537 001340 SvOS: MOV RS, SREGS 7SAVE RS 
(1) 005750 010437 001336 MOV R4.SREGS TSAVE RG 
(1) 005754 010337 001334 MOV R3,$REG SSAVE R 
(1) 005760 010237 001332 MOV R2,$REG TSAVE R 
(1) 005764 010137 001330 MOV R1.$REG SSAVE R1 
(1) 005770 010037 001326 MOV RO. $REGO [SAVE RO 
(1) 005774 000002 RTI SLEAVE. 
(1) ZRESTORE RO-RS 
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(1) 005776 013700 001326 .RESOS: MOV $REGO,RO yRESTORE RO 
C1) 006002 013701 0013 9 MOV $REG1.R1 SRESTORE R1 
; a 006006 013702 00133 MOV REG2.R TRESTORE R 
(1): 006012 -:013703 +«001334 MOV SREGS,R SRESTORE R 
' €1) 006016 013704 001336 MOV SREG4 RS TRESTORE R& 
| C1) 006022 013705 001340 MOV SREGS.RS SRESTORE RS 
j 4 006026 000002 RTI * LEAVE 
| (1) ZCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
(1) 
| (1) 006030 104402 001357 eCONVR: TYPE gare sPRINT A CARRIAGE RETURN 
(1) 006034 010046 eCNVRT: MOV ao cnksp) [SAVE R RO 
(1) 006036 010146 MOV R1,-(SP) sSAVE R1 
(1) 006040 010346 MOV R3,=(SP) TSAVE R3 
(1) 006042 010446 MOV R4,-(SP) ee Re 
(1) 006044 010546 MOV =(SP 
(1) Soenes 017601 000012 MOV a13(SP),R1 A ate THE ADDRESS OF THE ARGUMENTS IN R1 
(1) 006052 062766 000002 000012 ADD #2,12(SP) [POINT TO WHERE MAIN PROGRAM WILL RESUME 
(1) 006060 012137 006204 MOV (R1)+,WROCNT ;GET NUMBER OF WORDS TO BE PRINTED 
(1) 006064 112105 1$: MOVB (R1)4#,R5 ;GET THE NUMBER OF CHARACTERS TO BE PRINTED 
(1) 006066 112100 MOVB  (R1)+,RO :GET THE NUMBER OF SPACES TO PRINT 
(1) 006070 013104 MOV a(R1)+,R4 sCOPY THE WORD TO BE C 
(1) 006072 110537 006206 MOVB R5, CHRCNT sCOPY THE CHARACTER COUNT 
(1) 006076 010403 3$: MOV *R3 C THE ARGUMENT WORD AGAIN 
(1) 006100 042703 177770 BIC #°C<7>,R3 ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 
(1) 006104 062703 000060 ADD #060,R3 [MAKE AN a ACTER CTER OUT OF THEM 
(1) 806119 110346 MOVE R3.-(SP) sSAVE THAT CHARACTER 
(1) 006112 006004 ROR Re [MOVE THE NEXT THREE BITS INTO PLACE 
(1) 006114 006204 ASR RG ZMOVE THEM AGAIN 
(1) 006116 006204 ASR RS AND FINALLY A THIRD TIME 
(1) 006120 005305 DEC RS éREDUCE CHARACTER COUNT.ARE ALL CHARACTERS 
(1) 006122 001365 BNE 3$ SIF NO, GO BUIL D THE NEXT ONE. 
(1) 006124 012703 010406 MOV #MDATA,R3 [NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
(1) 006130 112623 4$: MOVB (SP)+ (R3)+ + STORE THE CHARACTER, STARTING WITH THE MOST 
(1) 006132 105337 006206 DECB = CHRCNT SREDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
(1) 006136 001374 BNE 4$ sIF NO, GO TRANSFER ANOTHER 
(1) 006140 105700 TSTB. = RO ZARE ANY SPACES TO BE PRINTED? 
(1) 006142 001404 BEQ 6% “IF NO, DON'T ANY 
(1) 006144 112723 000040 5$: MOVB #040, (R3)+ [ADD A SPACE TO THE OUTPUT th 
(1) 006150 105300 DECB = RO SREDUCE THE COUNT. SHOULD WE PRINT MORE? 
(1) 006152 001374 BNE 5$ SIF YES, GO ADD ANOTHER SPACE 
(1) 006154 105013 6$: CLRB —s- (R3) [TERMINATE THE OUTPUT BUFFER WITH A ZERO 
(1) 006156 100406 010406 TYPE eMDATA sPRINT THE ying? WE qs! BUI 
(1) 006162 005337 006204 DEC WRDCNT =R UCE THE WORD C ARE ANY MORE WORDS LEFT? 
(1) 006166 001336 BNE Z1F GO CONVERT ren 
(1) 006170 012605 MOV (SP)+,R5 REST ER 
(1) 006172 012604 MOV (SP)+-RG RES 
(1) 006174 012603 MOV (SP)+,R3 sRESTORE R3 
(1) 006176 O12 01 MOV (SP)+-R1 TRESTORE R1 
(1) 006200 01 MOV (SP)+-RO RESTORE RO 
(1) 006202 RTI sRETURN TO THE MAIN PROGRAM 
(1) 006204 WRDCNT: O 
(1) 006206 000 CHRCNT: .BYTE ZNUMBER OF CHARACTERS TO PRINT 
(1) $8830 000 SPACNT: .BYTE 0 “NUMBER OF SPACES TO PRINT 
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037 ‘CNDZBA.P11 = -15=DEC=82 14:35 APT COMMUNICATIONS ROUTINE SEQ 0050 
(1) 
| (1) 006210 000000 BINWRD: 0 
/, @) 
ow ;TRAP DISPATCH SERVICE 
MM UMENT OF TRAP IS EXTRACTED 
fest {AND USED AS OFFSET TO OBTAIN. POINTER 
| (1) :TO SELECTED SUBROUTINE 
(1) 006212 010046 .TRPSR: MOV RO,=(SP) ZSAVE RO. USE 09 TO FIND TRAP ROUTINE 
(1) 006214 016600 000002 MOV (Sp), RO 3GET TRAP ADDR 
(1) 006220 005740 TST (RO) :GET TRAP 
(1) 006222 111000 MOVE (RO) ,RO 3GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
(1) 006224 006300 ASL RO :POSITION OFFSET FOR TABLE INDEXING 
(1) 006226 016000 001742 MOV .TRPTAB(RO),RO PLACE INDEXED ADDRESS OF TABLE IN RO 
(1 006232 000200 RTS RO S TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 
(1) :DEVICE CLEAR ROUTINE 
(1) SISSUE A DEVICE CLEAR 
(1) 006234 .DEVICE.CLR: 
(1) 006234 052777 000020 173546 BIS MDCLR,@DZVCSR SET DCL 
(1) 006242 032777 000020 173540 1$: BIT #DCLR.aDZVCSR = :DID Te CLEAR? 
(1) 006250 001374 BNE 1$ <BR IF 
(1) 006252 000002 RTI ‘EXIT ROUTINE 
(1 ;ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 
(1) 006254 104413 -DCLASM:BEVICE.CLR ZISSUE A DEVICE CLEAR 
(1) 006256 153777 001424 173524 BISB  MNTFLG,@DZVCSR :LOAD THE MAINTENANCE BIT IF IT IS I MODE 
(1) RTI RETURN TO CALLING ROUTINE 
(1) 006266 -DELAY: 
(1) 006266 010046 MOV RO,=(SP) ZSAVE RO 
(1) 006270 013700 006304 MOV DLYCNT,RO :SET COUNT 
(1) 006274 005300 1$: DEC RO SDELAY 
(1) 006276 001376 BNE 1$ : 
(1) 300 012600 MOV (SP)+,RO TRESTORE RO 
(1) 006302 000002 RTI ‘LEAVE ROUTINE 
1) 006304 000001 DLYCNT: .WORD { :PATCHABLE LOC FOR MORE TIME 
(1) ;ADVANCE TO NEXT TEST HANDLER 
(1) g 
(1) 006306 013716 001362 .ADVANCE:MOV —s NEXT, (SP) :CRUNCH STACK WITH ADDRESS OF SCOPE CALL 
(1) 006312 005037 001364 CLR LOCK SRESET TIGHT LOOP A 
(1) 006316 I :CHECK TO SEE IF OLD TEST GETS REPEATED 
(1) ZROUTINE TO SHIFT LINE POINTER 
(1) SAND SWITCH TESTS IF NECESSARY 
(1) 006320 106302 .SHIFT: ASLB = R2 :POINT TO THE NEXT LINE 
(1) 006322 032702 000020 BIT #B1T4,R2 HAV VE WE PASSED ALL LINE POINTERS? 
(1) 006526 001402 BEQ 1$ F NOT, RETURN TO THE TEST 
(1) 006330 022626 POP2SP ‘REMOVE THE TRAP CALL FROM THE STACK 
(1) 006332 104400 ADVANCE :G0 TO THE NEXT TEST 
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3 006334 000002 1$: RTI sRETURN TO THE PRESENT TEST 
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ay ZLINE PARAMETER REGISTER SETUP ROUTINE 
(1) 006336 010146 .LPRSET :MOV R1,-(SP) :SAVE CONTENTS OF R1 
(1) 006340 010246 MOV R2,=(SP) SSAVE CONTENTS OF R2 
(1) 006342 013701 001370 MOV PAR,R1 ‘MOVE DEFAULT PARAM. INTO R1 
(1) 006346 012702 000001 MOV #1,R2  sINIT. FOR LINE 1 
(1) 006352 010177 173442 1$: MOV R1,aDZVLPR ;LOAD PARAM. REGISTER 
(1) 006356 905201 INC R1 'SET R1 FOR NEXT LINE 
(1) 006360 10630 ASLBeR2 SSET R2 FOR NEXT LINE 
(1) 006362 032702 000020 BIT #BIT4,R2 tALL LINES DONE? 
(1) 006366 0017717 BEQ 1$ SIF NO LOAD NEXT LINE 
(1) 006370 012602 MOV (SP)+,R2 SRELOAD R2 
(1) 006372 012601 MOV (SP)+,R1 sRELOAD R1 
(1) 006374 000002 RTI RETURN 
| (1) ;ROUTINE TO ZERO DATA BUFFER 
(1) 006376 010046 BUF SET :MOV RO,-(SP) :SAVE CONTENTS OF RO 
- (1) 006400 012700 001426 MOV #T00,RO :SET RO TO TOP OF BUFFER 
(1) 006404 005020 1$: CLR (RO) + [CLEAR BUFFER LOCATION 
(1) 006406 022700 001446 CMP #STOP,RO [1S BUFFER ALL CLEARED 
(1) 006412 001374 BNE 1$ TIF NOT CLEAR NEXT LOCATION 
(1) 006414 012600 MOV (SP)+,RO SRELOAD RO 
(1) 006416 000002 RTI RETURN 
(1) ZERROR HANDLER 
(1) J 
(1) 006420 004737 007046 SERROR: JSR PC, SERV.G sFIND OUT IF <*G> WAS HIT 
(1) 006424 032777 010000 172652 BIT #SW12,aSUR [BELL ON ERROR? : 
(1) 006432 001406 BEQ XBX [BR IF NO BELL 
(1) 006434 105777 172654 TSTB a$TPS :TTY READY. 
(1) 006440 10000 BPL XBX [DON'T WAIT IF TTY NOT READY. 
(1) 006442 112777 000207 172646 MOVE #207,aSTPB [PUSH A BELL AT THE TTY. 
(1) 006450 032777 020000 172626 XBxX: BIT #Sw13,aSwR [DELETE ERROR PRINT OUT? 
(1) 006456 001113 BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
(1) 006460 021637 001262 CMP (SP) , SERRPC [WAS THIS ERROR FOUND LAST TIME? 
(1) 006464 001404 BEO [BR IF YES 
(1) 011637 0012 MOV (SP) ,SERRPC SRECORD BEING HERE 
(1) 006472 105037 00124 CLRB_ ss SERFLG TPREPARE HEADER 
(1) 006676 104407 1$: SAVOS TSAVE ALL PROC REGISTERS 
(1) 006500 011605 MoV (sp) RS 7GET THE PC OF ERROR 
(1) 006502 162705 000002 Sua #2,Rr5 7GET ADDRESS OF TRAP CALL 
(1) 006506 011504 MOV (R5) RO [GET ERROR INSTRUCTION 
(1) 006510 110437 001260 MOVE «RG .SITEMB [COPY TEST NUMBER FOR APT HANDLING 
(1) 006514 ASL RS sMULT ey TwO 
(1) 906516 1 ADD (RS) R46 [DOUBLE IT 
a) , ASL RS [MULT AGAIN 
(1) 005 77091 BIC #177001 84 [CLEAR JUNK 
(1) 003526 062706 0151! ADD = @.ERRTAG,RG = GET POINTER 
(1) 6065 p14 ? 76 mov (R4)+-DATAHD § :GET DATA WEADTER 
(1) 006 11437 006 02 MOV (R64) ,OATABP [GET DATA TABLE 
(> Oo! Opies eS peor pms Eg 
1) 554 pesss 004702 TST DATAGP ees DATA TABLE EXiST? 
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(1) 006560 001044 BNE TYPDAT :BR IF YES. 
(1) 006562 104402 001357 TYPMSG: TYPE  ,$CRLF ;TYPE A CARRIAGE RETURN 
(1) 906566 10440 001357 TYPE  ,$CRLF SAND TYPE ANOTHER 
(1) 006572 005737 001364 TST LOCK 
(1) 006576 00140 BEQ 1$ 
(1) 006600 104402 007761 TYPE ,MASTEK 
(1) 006604 104402 007747 1$: TYPE ,MTS 
(1) 006610 104412 007040 CNVRT .XTSTN :SHOW IT 
(1) 006614 104408 010041 TYPE § ,MERRPC STYPE PC. 
(1) 006620 104412 007032 CNVRT  ERTABO ‘SHOW IT 
(1) 006624 104408 7711 TYPE ,MCSRX 
(1) 006630 104412 004324 CNVRT ->XCS 
(1) 006634 104402 001357 TYPE  ,$CRLF :GIVE A CR/LF 
(1) 006640 112737 177777 001247 MOVE = #=1, SERFLG [NO MORE HEADER UNLESS NO DATA TABLE. 
(1) 006646 005737 006656 TST ERRMSG tI1S THERE AN ERROR MESSAGE? 
(1) 006652 001402 BEQ WTBS.FM :BR IF NO. 
(1) 006654 10440 TYPE TYPE 
(1) 006656 000000 ERRMSG: 0 + ERROR MESSAGE 
(1) 006660 WTBS.FM: : 
(1) 006660 005737 006670 TST DATAHD SDATA HEADER? 
(1) 006664 001402 BEQ TYPDAT 7BR IF NO 
(1) 006666 104402 TYPE ;TYP 
(1) 006670 000000 DATAHD: 0 DATA HEADER 
(1) 006672 005737 006702 TYPDAT: TST DATABP [DATA TABLE? 
(1) 006676 001402 BEQ RESREG 'BR IF NO. 
(1) 006700 104411 CONVRT F 
ti) ieee ite DP REG. RESOS SRESTORE PROG REGISTERS 
(1) irgaits 193319 000001 001140 HALTS: CMPB #$ #APTENV,SENV :1S APT RUNNING? 
(1) 006714 001007 BNE 15$ [SKIP APT CALL IF NOT 
(1) 006716 113737 001260 006730 MOVB © $ITEMB,5$ [COPY ERROR NUMBER 
(1) 006724 004737 005162 JSR PC, SATY4 :CALL APT SERVICE 
(1) 0067 900000 5$: ~WORD 0 SERROR NUMBER STUCK HERE 
(1) 006732 00077 10$: BR 10$ SLOCK UP H 
(1) 006734 022737 004310 000042 15$: CMP WSENDAD,a#42 CHECK TO SEE IF IN ACT=11 MODE 
(1) 006742 001405 BEQ 208 :1F SO, HANDLE ACCORDINGLY 
(1) 006744 005777 172334 TST as SUR HALT ON ERROR? 
(1) 006750 100004 BPL XITE BR I IF NO HALT ON ERROR 
(1) 00675 016677 000002 172326 208: MOV, (SP) @DISPLAY : SHO NOW ERROR PC IN DATA DISPLAY 
(1) 006762 ited 001256 EXITER: INC -  $ERTTL :UPDATE ERROR COUNT 
(1) 7 37 007046 JSR PC, SERV.G FIND QUT IF *G WAS TYPED 
(1 ? are 172304 BIT #SW08 ,aSwR :G0T0 TOP OF TEST? 
(1) ? 002000 172274 eit #SW10,aSwR ;GOTO NEXT TEST? 
(1) 7 1362 001252 MOV NEXT SLPADR iSEt FOR NEXT TEST 
(1) 06 9 1$: MOV asta TACK, S TRESET SP 
(1) 1932 2 JMP a (Pak ;GOTO SPECIFIED TEST 
(1) ; 28: RTI RETURN 
(1) ERTABO: 1 
(1) 006 002 .BYTE 6,2 
(1) 001404 SAvPC 
4) 1002 (002 ee ee 
(1) 0019e¢ $TSTNM 
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| W@W) 907046 17746 172240 SERV.G: MOV welts ve SP) sOTHERWISE, GET THE LAST CHARACTER TYPED 
/ oa) 716 000200 BIC *STRIP P Ani TYCEGHTHD BIT 
/ oa tas 2276 000007 CMPB shh :1S 1T * 
a) 00 BNE H TIF NOT, °[GNORE INPUT 
' =§6«1) 007 03777 006000 172216 BIT #4000, a$TKS [RX BUSY? 
(1) 007072 E SERV.G 7BR IF YES 
(1) 007 a GETSWR= , riGPA 
(1) 007074 017737 172204 007302 MOV aswr,908 ZSAVE (SWR). 
(1) 007102 10460 6 1$: TYPE ,89% [TYPE HEADER FOR OLD SWITCH REGISTER 
(1) 007106 10441 7276 CNVRT °88 STYPE TH HE NUMBER IT 
(1) 007112 10440 7304 TYPE 91 SAFTER HAVING CONVERTED IT TO ASCII 
(1) 007116 105037 007310 CLRB 528 [CLEAR SWR CHANG 
(1) 007122 005077 172136 CLR :CLEAR THE SO P TUARE SUITCH REGISTER 
(1) 007126 105777 172156 3$: TSTB agcs [WAIT FOR DONE. 
(1) 0071 100373 BPL $ [CONTINUE WAITING FOR IT 
(1) 007134 017746 172152 MOV astk ve sP) :PUT THE CHARACTER ON THE STACK 
(1) 007140 042716 900200 BIC elt :STRIP PARITY BIT 
(1) 007144 12 726 00001 CMPB cephe. [1S IT THE CARRIAGE RETURN CHAR? 
(1) 007150 0014 BEQ t1F $0, GO PRINT CRLF 
(1) 007152 105777 172136 28: TST8 = @$TPS t1S THE ourPur. “BUFFER AVAILABLE 
(1) 007156 100375 BPL $ TIF NOT, WAIT FOR IT TO BE READY 
(1) 007160 105237 007310 INCB 2$ SINDICATE THAT THE SWR WAS CHANGED 
(1) 007164 014677 172126 MOV =(SP) ,aSTPB [PLACE THE CHARACTER THERE CECHO BACK) 
(1) 007170 000241 CLC ‘GET READY TO ROTATE 
(1) 007172 006177 1721 ROL aswR [MOVE THE EX STING BTS OVER 
(1) 007176 006177 172102 ROL aswR :TO MAKE ROOM FOR THE INCOMING 
(1) 007202 177. 172076 ROL aswR [THREE BITS FROM THIS CHARACTER 
(1) 907206 19 73 BCS 1$ ERROR 
(1) 007210 0 $2 000060 CMP (SP)+,#60 31S IT LOWER THAN 0? 
(1) 007214 002732 BLT 1$ SIF SO, GO ASK AGAIN 
(1) 007216 026627 177776 000067 CMP =2(SP) ,#67 $1S IT HIGHER THAN 7? 
(1) 007224 003326 BGT [IF SO, GO ASK A GA 
(1) 0072 374 177770 BIC #°C<7>,-(SP) ISOLATE INFORMA TION BITS 
(1) 007, 52677 172046 BIS (SP)+,aSwR SADD THEM TO THE SWITCH REGISTER 
(1) 007236 73 BR 3 :GO0 CHECK FOR THE NEXT CHARACTER 
(1) 007240 105737 007310 4$: TSTB 0s «92$ SHAS THE SWR BEEN CHANGED? 
(1) 007244 001003 BNE S iE YES GO TYPE C RLF 
(1) 007246 013777 007302 172030 MOV 90$,aSwR SIF NOT RESTORE $ 
(1) 007254 10440 135 S$: TYPE SCRLF [TYPE A CARRIAGE SRE TURN AND LINE FEED 
(1) 007260 00020 6$: RTS ge SRETURN TO CALLING PROCEDURE 
(1) 007262 920200 51450 051127 89%:  .ASCIZ <200>? (SWR)=/? 
(1) 007270 036451 Haat 
(1) EVEN 
(1) 007274 000001 88$: 1 
(1) 007276 006 000 -BYTE 6,0 
(1) 007300 00730 90$ 
(1) 007302 0000 90$: .WORD 0 
(1) 304 036457 000057 91$: -ASCIZ 2/=/? 
(1) 007310 92$: BYTE 0 
(1) 00731 EVEN 
3) “SBTTL POWER DOWN AND UP ROUTINES 
( ) lth beets SO OT ee te ee 
3) “POWER DOWN ROUTINE 
(5) 007312 012737 007456 000024 $PWRDN: MOV #SILLUP ,a#PWRVEC ::SET FOR FAST UP 
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\CNDZBA.P11.—- 15=DEC~ OWER DOWN AND UP ROUTINES 
| (2) 007320 012737 000300 000026 MOV #PRE QsPURVEC +2 :3PRIO:6 
| (4) 007326 ~=010046 MOV RO,=(SP) +:PUSH RO ON STACK 
| (6) 007330 10146 MOV RT =(8P) +:PUSH R1 ON STACK 
(4) 007 10246 MOV R2,-(SP) +:PUSH R2 ON STACK 
(4) 007334 010346 MOV R3,=(SP) +:PUSH R3 ON STACK 
(4) 007336 010446 MOV R4.=(SP) 33PUSH R4 ON STACK 
(4) 907340 010546 MOV R5,=(SP) +:PUSH RS ON STACK 
(4) 007 01774 171736 MOV asi =(SP 3 sPUSH agur ON STACK 
(2) 007 010637 00746 MOV SSAVR6 + SAVE 
00735 012737 007364 000024 MOV sshonue a#PWRVEC’ : SET op VECTOR 
(2) 007362 000776 BR 72 ::HANG UP 
‘¢ RAAAAEAEEAEAIRAAAEAEAEAAAAEAEAAAAAERARAAARARERAREAAAAARERAEEEEE 
(2) {POWER UP ROUTINE 
(2) 007 012737 007456 000024 $PWRUP: MOV ASILLUP,Q#PWRVEC ; :SET FOR FAST DOWN 
(2) 007372 013706 00746 SSAVR6,SP T 
(2) 007376 005037 007462 CLR SSAV tIWAIT Loop FOR THE TTY 
(2) 007402 005237 007462 1$: INC SSAURG 33WAIT FOR THE INC 
(2) 007406 001375 BNE i’ ::0F WORD 
(4) 007410 012677 171670 MOV (SP)+,aSWR ::POP STACK INTO aSWR 
(4) 007414 012605 MOV (SP)+~R5 ::POP STACK I 
(4) 007416 012604 MOV (SP) +,R4 ::POP STACK INTO R4 
(4) 007420 012603 MOV (SP)+.R3 ::POP STACK INTO R3 
(4) 007422 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(4) 007424 012601 MOV ($P)+, RI 33 STACK INTO R1 
(3) Hoes O15 o39 000024 MOV seeorbae aePWRVEC’ OFT UP Cee gt Fe DOWN VECTOR 
(3) ig $135 ? tatty 000026 MOV #PR6, a#PWRVEC 5 BSED e 
(2) 007444 104402 TYPE i EREPORT THE POWER FAILURE 
(2) 007446 007464 SPWRMG: .WORD MPFAIL FAIL ME SSAGE POINTER 
(2) 007450 012716 MOV (PC)+, (SP) + RESTART AT RESTAR 
(2) 007452 011010 SPWRAD: .WORD RESTART SIRESTART ADDRESS 
(2) 007454 000002 RTI 
(2) 007456 000000 SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
(2) 007460 000776 BR 72 33 : BEFORE THE POWER DOWN WAS COMPLETE 
(2) 007462 000000 SSAVR6: 0 HE SP HER 
(3) 007464 050200 051127 043040 MPFAIL: .ASCIZ <200>/PWR FAILED. RESTART AT LAST TEST / 
(2) 007527 00 047105 020104 MEPASS: .ASCIZ <200>/END PASS CNDZB-A / 
(3) 007553 00 052528 047116 MR: SASCIZ <200>/RUNNING / 
(2) 007567 00 051120 043517 MERR2: .ASCIZ <200>/P PROGRAM INDICATES No DEVICES PRESENT./ 
(2) 007636 044600 51316 043125 MERR3: .ASCIZ <200>/INSUFFICIENT DATA!/ 
(2) 007662 046200 04151 20113 MLOCK: .ASCIZ <200>/LOCK ON SELECTED TEST/ 
(2) 007711 103 051123 020072 MCSRX: .ASCIZ /CSR: / 
(2) 007717 126 041505 920072 MVECX: .ASCIZ /VEC: 
(2) 007725 120 051501 042523 MPASSX: .ASCIZ /PASSES: / 
(2) 007736 051105 047522 051522 MERRX: .ASCIZ /ERRORS: / 
(3) 00774 124 51505 020124 MTSTN: .ASCIZ /Test NO: / 
(2) 007761 2 0 MASTEK: .ASCIZ /* 
(2) 007764 052200 050131 020105 MNEW: .ASCIZ <200>/1VPE A BIT MAP OF DZV11°S DESIRED ACTIVE: 
(2) 010041 120 035103 000040 MERRPC: .ASCIZ /PC 
(2) 010046 046600 050101 047440 XHEAD: :ASCIZ < 60>/MAP OF DZV11 STATUS/<200> 
10074 044600 046114 04350 MBADLN: “ASCIZ <200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 
(3) 010136 000002 KSTATO: 2 
(2) 01014 006 003 -BYTE 6,3 
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/CNDZB=A MACY11 13061046) ) 15=peC~82 14:38 PAGE oft -38 
3 |CNDZBA.P11 4:35 POWER DOWN AND UP ROUTINES SEQ 0056 
(2) 010142 001344 STMP1 
(2) 010144 906 002 \BYTE 6,2 
(3) 010146 001346 en $TMP 
3} sTHIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 
(2) TESEXTERNAL LOOP BACK 
(2) t1=INTERNAL LOOP BACK 
(2) > S=STAGGERED , LOOP BACK 
(2) 010150 017605 000000 .SETFLG:MOV a(SP),R5 :PICK UP ADDRESS OF TAG 
(2) 010154 040737 000040 010344 BIC #60, 1NBUF SSTRIP LOWER CA 
(2) 010162 122737 000105 010344 CMPBsé#*"E. INBUF [1S IT EXTERNAL LOOP BACK ? 
(2) 010170 001005 BNE 4$ NO 
(2) 010172 013715 010262 MOV 1$, (RS) [YES STORE INFO 
(2) 010176 105037 001424 CLRB = MNTFLG :SET MAINT BIT =0 
(2) 010202 000422 BR 7$ :GET OUT 
(2) 010204 122737 000111 010344 4$: CMPB es #" I, INBUF t1S 1T INTERNAL LOOP BACK ? 
(2) 010212 001 BNE NO 
(2) 010214 013715 010264 MOV 2$, (RS) SYES STORE INFO 
(3) 010220 112737 000010 001424 MOVB &#MAINT,MNTFLG SET UP THE MAINTENANCE FLAG LOADER 
(2) 010226 000410 BR :GET OU 
(2) 010230 122737 000123 010344 S$: CMPB so #"S,, INBUF 31S IT STAGGERED LOOP BACK ? 
(2) 010236 001007 BNE [WHAT ? 
(2) 010240 013715 010266 MOV. $,(R5) TYES STORE INFO 
(2) 010244 105037 001424 CLRB  MNTFLG ‘ZERO BITS 
(2) 010250 062716 000002 7$: ADD #2, (SP) [POP AROUND 
3) Biases oat ss: abr ney 
(3) Stats b0d?3$ BR SETFLG :DITTO 
(2) 010262 000200 1$: «WORD 200 EXTERNAL = 
(2) 010264 000000 2$: WORD S INTERNAL = I 
(2) 010266 100000 3$: “WORD 100000 SSTAGGERED = S 
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‘eet 15=DEC- DOWN AND UP ROUTINES 
(2) COMPARE THE FIRST aGHARACTER,, IN N THE, TELETYPE INPUT 
| (2) 3BUFFER TO THE CHARACTERS "E'* vs 
i. 31F THE CHARACTER IS ‘E’’ CLEAR we FLAG 
SIF THE CHARACTER IS “C’’ SET THE FLAG 
(2) 010270 017605 .PAWCH:MOV a(sP),RS 
(2) 010¢7% 142737 060040 010344 BICB #0, INBUF eset FOR ROWER CASE INPUT 
(2) 010 g 122737 000105 010344 CMPB Ss #’"E, INBUF 
(2) 010310 001002 BNE 1$ 
(2) 010312 105015 CLRB (RS) pa 
(2) 010314 900406 BR 2$ 
(2) 010316 122737 000103 010344 1$: CMPB Os #'"C, INBUF sis at Se" 9 
(2) 010324 001005 BNE 
(2) 010326 112715 177777 MOVE #-1,(R5) 23177 
(2) 010332 062716 000002 2s: ADD #2, (SP) 
(2) 010336 000002 
(2) 010340 104404 3$: INSTER :RETRY 
(2) 010342 000752 BR .PAWCH 
ts) ZBUFFERS FOR INPUT-OUTPUT 
(2) 010344 00 INBUF: 0 
(2) 010406 -=. #40 
(2) : TEMP: 0 ; TEMP AREA UNUSED. 33GPA 
(2) 3 =. th t DELETED TO CONSERVE SPACE. 32GPA 
(2) 010406 000000 MDATA: 0 
(2) 010450 -=. #40 
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| CNDZBA.P11 =DEC=82 14:35 ER DOWN AND UP ROUTINES SEQ 0058 
 §} 
| a SROUTINE USED TO “'CYCLE’’ THROUGH UP TO SIXTEEN DZ2v11'S 
ae [THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
(3) SAND RUNS THE SPECIFIED PZV11'S. THIS ROUTINE *MUST® 
| = (3) ‘BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
| og SETUP NECESSARY. 
| 2) : 
(2) 010450 005737 001406 CYCLE: TST DZVACTV zARE ANY D2V11°S TO BE TESTED? 
(2) 010454 001004 BNE 1$ :BR IF OK. 
(2) 010456 104402 007567 TYPE  ,MERR2 =NO DZV11°S SELECTED!! 
| (2) 010462 000000 HALT :STOP THE SHOW. 
(2) 010464 000776 BR .-2 :DISQUALIFY CONT. SW. 
| (3) 010466 013737 004616 001354 1$: MOV SMXCNT,STIMES | ;RESTORE THE NUMBER OF ITERATIONS TO MAKE 
(2) 010474 033737 001412 001406 BIT RUN, DZVACTV :1S THIS ONE ‘ACTIVE’ 
| (2) 010502 001017 BNE 2$ :BR IF GOOD ONE FOUND. 
(2) 010504 006137 901412 ROL RUN [UPDATE POI 
(2) 010510 005537 00141 ADC UN [CATCH CARRY 
(2) 010514 062737 000012 001420 ADD #12, ACTIVE SUPDATE ADDRESS POINTER. 
(2) 010542 022737 001740 001420 CMP #DZV.END, ACTIVE :HAVE WE PASSED THE END OF THE MAP? 
(2) 010530 001356 BNE z1F NO, KEEP GOING; NOT ALL TESTED FOR. 
(2) 010532 012737 001500 001420 MOV #DZV.MAP, ACTIVE :RESET ADDRESS POINTER. 
(2) 010540 000752 BR 1$ SKEEP LOOKING FOR ACTIVE D2V11 
(2) 010542 006137 001412 2s: ROL RUN [UPDATE POINTER. 
(2) 010546 005537 001412 ADC RUN ‘CATCH CARRY. 
(2) 010552 013700 001420 MOV ACTIVE ,RO [GET ADDRESS POINTER. 
(2) 010556 062737 900012 1420 ADD #12, ACTIVE ‘UPDATE. 
(2) 010564 022737 001740 001420 CMP #DZV.END ACTIVE 
(2) ZALL DONE? 
(2) 010572 001003 BNE 3$ ‘BR IF NO. 
(2) 010574 012737 001500 001420 MOV #DZV.MAP, ACTIVE :RESTORE POINTER. 
(2) 010602 012037 001174 3$: MOV (RO) +, $BASE SLOAD SYSTEM CTRL. REG 
(2) 010606 012037 002040 MOV (RO)+,02VRIV  ;LOAD VECTOR 
(2) 010612 012037 001366 MOV (RO) +, LINE [SET UP DZV LINES ACTIVE 
(2) 010616 012037 001370 MOV (RO)+,PAR :SET UP PARAMETERIZATION 
(2) 010622 012037 001372 MOV (RO) +, MODE *SET UP MAINTENANCE MODE 
(2) 010626 105037 001424 CLRB  MNTFLG ;RESET MAINT. FLAG IF 
(2) 010632 005737 001372 TST MODE ;RUNNING TESTS 
(2) 010636 001003 BNE 9$ IN 
(2) 010640 112737 10 001424 MOVE &#MAINT,MNTFLG ;INTERNAL MAINT. MODE 
(2) 010646 004737 011014 9S: JSR PC DZVLEV 7SET 
(2) 010652 005737 TST and2 TARE WE UNDER MONITOR CONTROL? 
(2) 010656 001051 BNE .7$ SIF YES, SKIP THIS SETUP 
(2) 010660 032777 000002 170416 BIT #SW01,aSwR [IF SWOi=1, GET STARTING TEST # 
(2) 010666 001445 BEQ [BR IF NO TEST 1S TO BE INPUTTED 
(2) 010670 10440 001357 4$: TYPE  ,$CRLF 
(3) 010674 10440 INSTR ZCALL THE STRING INPUT ROUTINE 
(3) 010676 007747 MTSTN SPOINTER TO MESSAGE TO BE PRINTED 
(3) 010700 104405 PARAM SCALL THE OCTAL TO ASCII CONVERT ROUTINE 
(3) 010702 000001 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(3) 010704 001000 1000 SHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(3) 910706 001246 $TSTNM [POINTER TO MAP LOCATION TO BE FILLED 
(3) 01071 000 .BYTE 0 [MASK OF INVALID BITS FOR THIS PARAMETER 
(3) 010711 1 “BYTE 1 [NUMBER OF PARAMETERS TO STORE 
(2) 010712 012700 012010 MOV #TST1,R0 
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CNDZBA.P11. - 15=DEC-82 14:35 OWN AND UP ROUTINES SEQ 0059 
(2) 010716 022710 000004 5$: CMP #4, (RO) 
(2) 010722 001020 BNE 6$ 
(2) 010726 022760 012737 000v02 CMP #12737,2(RO) 
(2) 010732 001014 BNE 6 
 (3)--010734 023760 ©001246 000004 CMP STSTWM,4(RO) 3 1$ THIS THE TEST 2 
| «39010742 001010 BNE 6$ TIF NOE, DON'T PROCESS NUMBER 
 (BY--010744 «010037 001252 MOV RO, S$LPADR SAVE PC 
2) 910750 062737 000002 001252 ADD #2. SLPADR [POP OVER PREVIOUS SCOPE 
 @) 010756 1 40g 00135 TYPE S$CRLF 
(3) 010762 00041 BR 
| 2) 010764 005720 6$: TST (RO) + 
| (2)-010766 «020027 014142 CMP RO, #TLAST+10 
| ¢3) 010772 001351 BNE $ 
| 3) 010776 104402 001356 TYPE SQUES 
| (2) 011000 00073 BR 
| @ 91100 012737 012010 001252 7s: MOV #TST1,$LPADR § ;PREPARE TEST ADDRESS 
| 2) 011010 000177 170236 RESTART: JMP _— a@SLPADR :60 START TESTING. ***WARNING! eee 
(5) THIS JUMP IS USED BY POWER UP ROUTINE! !!! 
(3) sTHIS UTILITY SETS UP CSR*S,SETS UP VECTOR 
(2) 011014 013700 002040 D2VLEV: DZVRIV,.RO LACE THE BASE VECTOR ADDRESS IN RO 
(2) 011020 062700 000002 ADD #2,R0 CALCUL ATE THE RECEIVER INTERRUPT STATUS ADDR. 
(3) 011024 010037 002042 MOV _—- RO, DZVRIS STORE IT HERE 
(2) 011030 062700 00000 ADD #2-RO CALCULATE yi TRANSMITTER INTERRUPT VECTOR 
(2) 011034 010037 002044 MOV RO.DZVTIV STORE IT 
(2) 011040 062700 000002 ADD #2.R0 CAL CULATE" THE TRANSMITTER VECTOR STATUS ADDRESS 
(3) 011044 010037 002046 MOV RO.DZVTIS ?STORE IT HERE 
(2) THIS SEGMENT SETS UP POINTERS FOR THE GIVEN D2V11. S$BASE IS THE BASE ADDRESS 
(2) 911050 013700 001174 MOV SBASE RO ;COPY THE ADDRESS BEING LOADED 
(2) 011054 010037 002010 MOV RO,DZVCSR + XXX0 
2) 011060 005200 INC 
(2) 011062 010037 002012 MOV RO,HDZVCSR 2000 
(2) 011066 005200 INC 
(2) 011070 010037 002014 MOV _—s- RO, DZ VRBUF 2 
(2) 011074 010037 002020 MOV _—- RO. DZVLPR £XXX2 
(2) 011100 005200 INC RO 
(2) 011102 010037 002016 MOV _—s— RO, HDZ VRBUF SKK 
2) 011106 010037 002022 MOV _—s- RO. HDZVLPR THXK 
(3) 011112 005200 INC R 
' (2) 011114 010037 002024 MOV _— RO, DZVTCR 2 XKK6 
| (2) 011120 005200 INC 
(2) 011122 010037 002026 MOV _—s RO, HDZVTCR HS 
(3) 011126 905200 INC RO 
(2) 011130 010037 002030 MOV _—s RO, DZ VSR  XXX6 
(2) 011134 010037 002034 MOV _—s- RO. DZVTOR + XXX6 
(3) 011140 005200 INC R 
(2) 011142 010037 002032 MOV RO,HDZVMSR HK? 
(3) 011146 010037 002036 MOV RO. HDZVTDOR XXX? 
(3) 011152 000207 RTS 
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047 ‘CNDZBA.P11_ —- 15=DEC OWN AND UP ROUTINES SEQ 0060 

3) sCONVERT DECIMAL ASCII STRING TO OCTAL 
/ 2) 011156 000002 .PARMD: RTI : DECIMAL PARAMETERS UNUSED. 32GPA 
By “REM & : DELETED TO CONSERVE SPACE... SIGPA 
| @ ?.. LAND REMAIN UNDER 4kwW SIZE. S:GPA 
| 3) .PARMD: MOV (SP) ,R5 
| (2) MOV (R5)+ 68 
(3) MOV (R5)+, 
| (2) MOV (R5)+.8$ 
(3) MOV = (R5) +. 98 

(2) MOV = (R5)+,108 

(3) MOV RS, (SP) 

(2) 23: CLR RS 

(3) MOV #INBUF ,R4 
(2) c #15, (R4) 

(2) BEQ 3g 

(2) 1$: CMPBs« (RG) , #*0 

(2) BLT ag 

2) C (RG) ,#°9 

(2) BGT 3$ 

(2) BICB 3s #*0,, (R4) 

(2) CLR R2 

(2) BISB (R4)+,R2 

(2) ADD 2 

(2) CMPB #15, (RG) 

(2) BEQ 4$ 

(3) ASL R5 :K2 

(2) MOV R5,R2 SAVE X2 

(3) ASL R X46 

(2) ASL R 7x8 

(2) ADD R2,.R5  ;TIMES 10 

(2) BR $ 

(2) 38: INSTER 

3 ae 

(2) zTEST TO SEE IF NUMBER IS WITHIN LIMITS 

(2) 4$: CMP RS.7 

(2) BHI 3$ 

(2) CMP R5.68 

(2) 3$ 

(2) BITB ©: 9$,RS 

3 “ 

(2) ;STORE NUMBER AT SPECIFIED ADDRESS 

(3) MOV 8$,R 

(2) 5$: MOV RS. (has 

(2) ADD 

(2) DECB i os 

(2) BNE 

‘ RTI 

(2) : 

&) 8$: 6 

(2) 9$: BYTE 0 

(2) 10$ “BYTE 
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CNDZBA.P11 15=DEC-82 14:3 POWER DOWN AND UP ROUTINES SEQ 0061 


(2) 3 END OF .PARMD DELETE RANGE & 22GPA 
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CNDZBA.P11 “DEC-82 14:35 POWER DOWN AND UP ROU iNES SEQ 0062 


(2) ;*ROUTINE USED TO SET UP THE DIAGNOSTIC VIA 
(2) [*IF BIT? IN THE ENVIRONMENT MODE (SENVM) ave is SET 
[*THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 
(3) 011156 012700 901500 SETAPT: MOV = #D7V. MAP, RO :POINT TO THE DEVICE MAP TABLE 
(2) 011162 013701 001174 MOV $BA 3BUILD DEVICE ADDRESSES IN R1 
(2) 011166 013708 001170 MOV SVECTI,R2 ILD DEVICE VECTORS 
(2) 011172 042702 177007 BIC #°C<776>_.R2 [STRIP AWAY OTHER INFORMATION 
(2) 011176 012704 001204 MOV #$D0W0,R4 SPOINT TO THE BEGINNING OF DEVICE PARAMETERS 
(2) 011202 013705 001176 MOV SDEVM,RS *GET THE MAP OF ACTIVE DEVICES 
(2) 011206 105037 001414 CLRB  DZVNUM SINITIALIZE THE NO. OF ACTIVE DEVICES 
(2) 011212 005037 001410 LR SAVACTV [CLEAR THE ACTIVE BIT MAP 
(2) 011216 006005 1$: 5 :GET A DEVICE SELECTION BIT 
(2) 011220 103407 BCS 3 z1F IT IS SELECTED, GO SET UP A MAP 
(2) 011222 001422 BEQ TIF NO MORE ARE S:LECTED, GET OUT OF SETUP 
(2) 011224 005724 TST (R4)+ [POINT TO NEXT DEVICE DESCRIPTOR 
(2) 011226 062701 000010 2$: ADD #10,R1 [SET UP THE NEXT ADDRESS 
3) 011232 062702 000010 ADD #10.R2 ‘SET UP THE NEXT VECTOR GR 
(2) 011236 00076 BR 7GO SEE IF MORE DEVICES REMAIN 
(2) 011240 006137 001410 3$: ROL SAVACTV [SET BIT IN ACTIVE DEVICE MAP 
(2) 011264 105237 001414 INCB DZ VNUM SINCREMENT NO. OF ACTIVE DEVICES 
(2) 011250 010120 1,(RO)+ SLOAD DEVICE ADDRESS 
(2) 011252 010220 MOV R2,(RO)+ TLOAD THE VECTOR ADDRESS 
(2) 011254 013720 001200 MOV $Cdw1, (RO)+ [GET THE NUMBER OF LINES IN OPERATION 
(2) 011260 012420 MOV (R4)+, (RO) + [LOAD DEVICE PARAMETERS 
(2) 011262 013720 001202 MOV $CDW2, (RO)+ [LOAD DEF TEST 
(2) 011266 000757 BR 2$ 60 BUILD THE NEXT ADDRESS 
(3) 911270 012710 177777 5$: MOV #-1, (RO) [TERMINATE THE DEVICE MAP 
(2) 011274 012737 001142 001304 MOV #SSUREG, SUR [SET TO SOFTWARE APT SWITCH REGISTER 
(2) 011302 000 RTS PC [RETURN TO PRINT STATUS TABLE 
(2) 
(2) z *ROUT INE UseD TO ‘AUTO SIZE" THE DZV11 
(2) S*CSR AND VECT 
(2) [*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
(2) ie ADDRESS RANGE (160000: 163770) 
(2) ie AND THE VECTOR MAY BE ANY WHERE IN THE 
(3) * FLOATING VOECTOR RANGE (300:770) 
3* 
(2) 
(2) 011304 AUTO. SIZE: 
(2) 011304 000005 RESET : INSURE A BUS INIT. 
(2) 011306 105337 001422 DECB = INIFLG tSHOW THAT I WAS HERE 
(2) 011312 012702 001500 CSRMAP: MOV #02V.MAP,R2 SLOAD MAP POINT 
(2) 011316 012703 001204 MOV #$D0U0,R3 POINT To ETABLE DEVICE DESCRIPTOR WORDS 
(2) 011322 005022 1$: CLR (R2)¢ [ZERO EN TIRE MAP 
(2) 011324 022702 001740 CMP #DZV.END.R2 TALL DONE? 
(2) 011330 001374 BNE 1$ [BR IF NO 
(2) 011332 105037 001414 CLRB DZ VNUM [SET OCTAL NUMBER OF DZV11°S TO 0 
(2) 011356 012702 001500 MOV a0LV. MAP, R2 
(2) 011342 012701 160000 MOV 0000,81 iSET FOR FIRST ADDRESS TO BE TESTED 
(2) 011346 012737 011612 000004 MOV a [SET FOR NON-EXISTENT DEVICE TIME OUT 
(3) 011354 052711 000046 2s: BIS i (RI) :TRY TO SET MASTER SCAN ENABLE 
(2) 011360 052761 000017 000004 BIS :TRY TO TRANSMIT 
(2) 011366 005000 CLR SUSE RO AS A COUNTER 
(2) 011370 005711 7$: TST met SHAS TRANSMITTER READY COME UP? 


i ee ee ee + ee ee es ee 
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050 CNDZBA. P11: 15=DEC=82 14:35 POWER DOWN AND UP ROUTINES SEQ 0063 
| = (2),-—-011372 100403 BMI 8S z1F sO G0 GET A FINAL CHECK 
(3) 011374 005300 DEC RO REDUCE COUNT. TIME UP? 
| = €2)-—«011376 001374 BNE 7$ TIF NOT, KEEP. WAITING 
/ (2) 011406 0004 37 BR 3$ AS IT°S NOT A 02V11 
| (2) 011402 03 761 000017 000004 8$: BIT  -#17,4(R1) ARE ANY Tee BITS STILL SET? THEY SHOULD BE 
(2) 011410 001433 BEQ SIF IT'S NOT, ASSUME IT'S NOT A Dzv11 
(2) 011412 032717 000040 BIT #B1TS,(R1) 1S MASTER SCAN ENABLE STILL set? 
| (2) 011416 001430 BEQ 3$ SIF NOT, ASSUME IT'S NOT A DzZV11 
(2) 011420 052711 000020 BIS #20, (R1) SET DEVICE CLEAR 
(2) 011424 000240 NOP 
(2) 011496 032711 000040 BIT #40, (R1) DID SCANNER CLEAR 
(2) 011432 001022 BNE 3s $F NO SSUME IT IS NOT DZV 
(2) 011434 005061 000004 CLR RID OF TCR BIT 
(2) yAT THIS POINT 1 is ASSUMED Twat’ + HOLDS A D2V11 CSR ADDRESS. 
(2) 011440 010122 MOV RI (R2)+ STOR : CSR IN CORE T 
(2) 011442 005722 TST (ns [POP OVER VECTOR STORE AREA 
(2) 011444 012722 000017 MOV #17, (R2)+ 7SET THE DEFAULT LINE SELECTION PARAMETER 
(2) 011450 O1e7Ie 017470 MOV #17470, (R2) [SET THE DEFAULT PARAMETERS 
(2) 011454 01222 MOV (Re)*,  (R3)¢ [COPY PARAAE TERS INTO ETABLE DESCRIPTOR 
(2) 011456 005022 CLR (R2) *SET THE DEFAULT MODE OF OPERATION 
(2) 011460 012712 177777 MOV #~1, (R2) 3 TERMINAT EL 
(2) 011464 105237 001414 INCB = DZ VNUM UPDATE Device COUNTER 
(2) 011470 122737 000020 001414 CMPB  =s- #20, DZ VNUM TARE WAX. NO. OF DEV FOUND? 
(2) 011476 001405 BEQ 100$ :YES DON'T LOOK FOR ANY MORE. 
(2) 011500 062701 000010 3$: ADD #10,R1 [UPDATE CSR POINTER ADDRESS 
(2) 011504 022701 164000 CMP #164000, R1 
(2) 011510 001321 BNE :8R IF MORE ADDRESS TO CHECK. 
(2) O11312 100$: 
(2) 011512 105737 001414 TSTB  DZVNUM :WERE ANY DZ2V11°S FOUND AT A 
(2) 011516 001430 BEQ 5$ SERROR AUTO SIZER FOUND NO Dovit® S IN THIS SYS. 
(2) 011520 113701 001414 MOVB  D2ZVNUM,R1 
(2) 011524 012737 000001 001410 MOV #1, SAVACTV sCREATE A BIT MAP 
(2) 011532 005301 4$: DEC R1 STHE DEVICES IN THE SYSTEM 
(2) 011534 001404 BEQ 98$ 
(2) 011536 000261 SEC 
(2) 011540 006137 001410 ROL SAVACTV 
(2) 011544 r7e BR 4$ 
(2) 011546 013737 001500 001174 98$: MOV DZCRO,$BAS :POINT TO THE | ADDRESS s OF FIRST DEVICE 
(2) 011554 013737 001510 001202 MOV MANTO, $CDW S INDICA TET ETABLE WHAT MODE IS BEING USED 
(2) 011562 012737 000006 000004 99$: MoV #6, aK SRESTORE T RAP VECTOR 
(2) 011570 013737 001410 001176 MOV SAVACTV, SDEVM : SAVE ACTIVE REGISTER 
(2) 011576 10 VE CMAP :GO FIND THE V NOW. 
(2) 011600 104402 007567 5$ TYPE [NOTIFY OPR THAT NO pzvit" $ FOUND. 
(2) 011604 005000 CLR RO SMAKE DATA DISPLAY ZER 
(2) 011606 HALT i STOP THE SHOW 
(2) 011610 776 BR 72 [DISABLE CONT. SW. 
(2) 011612 012716 011500 6$ MOV #3$, (SP) SENTERED BY NON-EXISTENT TIME-OUT 
(2) 011616 2 RTI [RETURN TO MAINSTREAM 
(2) 011620 012737 900200 000022 VECMAP: MOV #MASK ,a#22 sSET 10T TRAP PRIORITY 
(2) 11686 012737 011742 000020 MOV #4$, SET OT TRAP VECTOR 
(2) 0116 012702 001500 MOV a V.MAP,R2 iSeT WARE POINTER 
(2) 011640 012700 000300 MOV #300,R0 SFLOATING VECTORS START HERE. 
(2) 011644 012701 000302 MOV #302,R1 :PC OF 
(2) 011650 010120 1$: MOV R1, (RO) SSTART F LING VECTOR AREA 
(2) 011652 012721 000004 MOV #4°(R1)+ sWITH .#2; IOT 





tm 


rr 
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051 CNDZBA.P11 = 15=DEC=82 14:35 POWER DOWN AND UP ROUTINES SEQ 0064 

) (2) 011656 022021 CMP = (RO)#,(R1)* ADD 2 TO RO +R1 

(2) 011660 20127 001000 CMP «R71, #1600 ZHAS THE VECTOR AREA BEEN EXCEEDED? 

(2) 011664 101771 BLOS :BR IF MORE TO FILL 

(2) O11666 015704 001410 MOV —- SAVACTV,,R4 STORE TEMPORARILY 

(2) O11672 906004 28: ROR 4 ZBRING OUT A BIT 

(2) 011674 103036 Bcc. 8 «S$ :BR IF ALL DONE 

(2) 011676 106427 000000 MIPS = #0 :ZERO CPU PRIO 

(3) O11702 012772 040040 000000 MOV =: #BIT14+B1T5,acR23 3SET TIE AND MAS SCAN 
| (2) 011710 011201 MOV R2),R1 3GET CSR 
(2) 011712 112761 000017 000004 MOVB = #17,4(R1) :SET THE TCR BITS FOR ALL LINES 
| (2) ZATTEMPT TO FORCE AN INTERRUPT 

(2) 011720 005200 INC — RO ;STALL 
| (3) 11722 001376 BNE = =2 ; FOR TIME TO INTERRUPT 
| (3) Olize4 012762 000300 000002 Moy , #300,2¢R2) 3NO_ INTERRUPT ASSUME 300 AND FIX DZV11 LATER 
| (2) 011734 062702 000012 3$: ADD = #12,R2 :POP SOFTWARE POINTER 
| (2) 011740 00075 BR 8 3KEEP GOING 
| (2) O1174e 011662 000002 4$: MOV = (SP),,2(R2) 2GET VECTOR ADDRESS 
(2) 011746 162762 000010 000002 SUB «#10, 2¢R2) 3POINT BACK TO THE CORRECT VECTOR 
| (2) 011754 042762 000007 000002 BIC #7, 2(R2) CLEAR JUNK 
| (2) 011762 022626 POP2SP 3POP IOT JUNK OFF STACK 

(2) 011764 012716 011734 MOV —- #38, (SP) 3SET FOR RETURN 
| (2) 011770 000002 RTI 
| (2) 011772 013737 001502 091170 5$: MOV = DZVCO,$VECT1_ —- COPY _ VECTOR OF FIRST DEVICE INTO ETABLE 
| (2) 012000 012737 004354 000020 MOV § #.SCOPE,IOTVEC RESTORE THE SCOPE TRAP 

(2) 012006 000207 RTS = PC ZALL DONE WITH “AUTO SIZING 
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CNDZBA.P11 15=DEC-82 14:35 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1982 DIGITAL EQUIP. CORP. 
reed 4 peeeeaeeearereerereeeeees TEST 1 xeeererenaneeeeeneeraereeerenee 
8411 3*THIS HS veniries OVERRUN AND SILO rr 
erie s*ONE LINE AT A TI - BASED UPON VALID LINES 
841 S*AS EACH OF THE FIRST 16 CHARS ARE SENT; SILO ALARM IS 
8414 s*TESTED TO BE CLEARED. ON THE 16TH CHAR THE PROGRAM THEN 
8415 s*EXPECTS SILO ALARM TO SET. THEN THE ENTI 
8416 s*SILO IS FILLED AND AN OVERRUN IS EXPECTED ON THE 65TH 
8417 s*CHAR PULLED OUT OF THE SILO. 

8418 : ERROR PRINTOUTS WILL REPORT TRANSMITTING LINE NO. 
8419 3 *USING SWITCH NINE FOR THIS TEST SENDS 20. CHARACTERS 
8420 “#ON DZV LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SwO9=1. 
ghey 3 of SED TO SCOPE SILO ALARM PULSES, ETC. 
(5) ° SREAAAEAAEEARARAEAAEREEEEEEEAEEEAEAAAAEAEAEREREEEEEEREREEREEREEKE 
(4) 012010 000004 T&T: SCOPE 
(2) 012012 012737 000001 001246 MOV #1,STSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) 012020 012737 012452 001362 MOV atste, eat POINT TO THE START OF THE NEXT TEST 
8424 012026 012737 012366 001364 MOV #18$,LOCK 3SET FOR LOOP 
8425 012034 104417 DCLASM :SET DCLR IN CSR AND SET MNTFLG 
8426 012036 104421 LPRSET [LOAD LINE PARAMETERS 
8427 012040 005037 001374 CLR SAVLIN sINIT LINE INDICATOR 
8428 012044 104422 BUF SET ZERO DATA BUFFER 
8429 012046 012702 000001 #1,R2 LINE POINTER 
8430 012052 052777 010040 167730 BIS #MSENAB! SILOEN,abZVCSR ; START SCANNER & SET SILO ENABLE 
et Oi 50ee iE ae me Bro Be gl Ine 4 hae ay io NEXT LINE 
kis $15 086 603700 001374 MOV SAVLIN,RO sMAKE OFFSET 
8434 012072 006300 ASL RS :MAKE POWER OF TWO 
8435 012074 010277 167724 MOV eeryren :SET TCR BIT 
8436 012100 105777 167704 4$: TSTB area SREC DONE = 1 ? 
8437 012104 100001 BPL +4 
8438 012106 104020 ERROR 20 sREC DONE SHOULD NOT = 1 
8439 012110 005003 CLR R3 SET CHARACTER COUNT 
8440 012112 005004 5$: CLR R4 
8441 012114 005777 167670 6$: TST aDZVCSR z18 TRDY SET? 
arts 012120 100404 BMI 7$ TIF YES, LOAD CHAR. 
844 gisice 104414 DELAY WAIT FOR TRDY TO SET 
8444 012124 005204 INC RG sINC DELAY COUNTER 
8445 gisi¢6 001372 BNE 6$ 
84 0121 104003 ERROR 3 s*TRDY FAILED TO SET 
844 pists 116077 001426 167674 /7$: MOVB TDO(RO),@DZVTDR :LOAD A CHARACTER 
8448 012140 005260 001426 INC TDOCRO) :SET UP NEXT CHARACTER 
8449 012144 020327 000017 CMP R3,#15. 716 CHARACTERS ? 
8450 at 150 195006 BHIS 
8451 012152 032777 020000 167630 BIT #SILOAL,@DZVCSR ;SILO ALARM = 0 ? 
ot 121 Seat BEQ 10$ 77 
845 121 10401 ERROR 13 +*SILO ALARM SHOULD NOT = 1 
54 [UNTIL 16. DATA CHARACTERS 
55 012164 000411 . BR 10$ 
26 1 1$6 603008 8$: CLR R4 
&45 121 32777 020000 167612 9$: BIT #SILOAL ,@DZVCSR 
8458 012171 927008 ; BNE 10$ 
59 01 04414 DELAY 
1 005204 INC R4 


SEQ 0065 
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8461 012204 001371 BNE 9$ 
8462 012206 104014 ERROR 14 s*$1L0 ALARM FAILED TO SET! 
846 SSILO ALARM SHOULD =1 AFTER 16. 
8464 ‘DATA CHARACTERS 
8465 01 19 99520 10$: INC R3 SINC CHAR COUNT 
8466 012212 022703 000102 CMP #66.,R3 SFINISHED SENDING CHARACTERS ? 
8467 01 16 00133 BNE 5$ 3NO 
8468 Ole 005004 CLR R4 
8469 012222 104414 DELAY 
8470 012224 105206 INCB =e RG 
8471 012226 001375 BNE =4 
8472 3NOW LETS READ THE SILO 
8473 012230 013705 001374 MOV SAVLIN,RS gMAKE EXPECTED LINE # 
8474 O1ge%s 005737 001372 TST MODE 31S THIS TEST IN STAGGERED MODE? 
(a) 012240 100006 BPL 13$ sIF NOT, SKIP STAGGERED SETUP 
| a1 zWE MUST NOW INVERT THE LAST BIT OF THE &INE NUMBER 
(1) 012242 205 ASR RS :GET THE LAST BIT INTO THE CARRY BIT 
(1) 012244 103402 BCS 11$ SIF IT IS SET, GO CLEAR 
(1) 012246 000261 SEC 3IF IT IS CLEAR SET IT HERE 
| (1) 012250 000401 BR 12$ 3 SKIP THE CLEARI 
(1) 012252 000241 11$: CLC CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
(1) 012254 006105 128: ROL RS :GET THE NEW BIT BACK IN NTO R5 
| 8475 012256 000305 13$: SWAB RS 3PUT IN UPPER BYTE 
8476 012260 052705 100000 BIS #DVALID,RS tADD DATA YALID 
| 744 13596 +O70S nites — CRP Hee VRBUF ” ACTUAL VS. EXPECTED 
| 879 gis 3 1401 BEQ Rg og” iY 
80 oie 7% «1 006 ERROR 6 Z*DATA/CONTENTS DID NOT COMPARE 
| B48] 6 932777 020000 167504 15$ BT #SILOAL ,@DZVCSR SILO ALARM= 0 ? 
$8 O13 06 10401 ERROR 1 ZREADING DZVRBUF DID NOT CLEAR SILO ALARM 
84 01231 520 16$: INC R ARA 
85 012312 120527 000077 CMPB sé}, #63. tLAST SILO CHAR ?....64TH CHAR 
| BeBe i 8 19508 mes ies zADD 1 MORE FOR THE CLOBBERED CHAR 
8488 01 3 9 033 05 040000 BIS #OVRRUN, RS [ADD OVERRUN TO EXPECTED 
| $489 1 3 1205 t 000101 CAPS R> SLAST CHARACTER ? 
84 12334 017704 167454 MOV @D2VRBUF ,R4 :FOR GOOD MEASURE 
84 1 9 5704 TST RG DATA VALID SHOULD = 0 
84 1 100001 BPL 17$ 
84 1 104017 ERROR 17 ‘DATA VALID SHOULD = 0 
84 12346 940277 167452 17$: BIC R2,aDZVTCR :CLR TCR BIT 
Be Hi 009237 001374 21$: INC SAVLIN SINE” EXPECTED LINE 
84 12362 boot ss 012060 MP 3$ YES 


sTIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS 
ON DZV LINE PREVIOUSLY SELECTED CONTI TNUOUSLY WHILE SwO9=1, 
USED TO SCOPE SILO ALARM PULSES, ETC. 


016366 052777 019048 167414 188: BIS #MSENAB:SILOEN,@DZVCSR ;SETUP DEVICE 
374 1 167442 MOV #208 ,adZVTIV ;SETUP TRANSMITTER VECTOR 


SARA SSELSGRISLS 


0000000000000 
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8507 012402 91 701 000024 MOV Z TEMPORARY COUNT OF CHARACTER BURST 
_ 8308 12406 0277 674) Bis RS caOFVTCR SENABLE LINE 
| g509 012612 052777 020008 167370 BIS ts @OZVCSR  : ENABLE INTERRUPTS 
8910 12420 106427 000000 MTPS SLOWER PRIORITY 
511 012404 19$: WAIT tALLOW INTERRUPTS 
Big 12426 077108 S0B REDUCE COUNT. ALL CHARACTERS SENT? 
8513 0124 2777 050040 167352 BIC ASiLOEW:nsenas: ie aDIVCSR *RESET SILO COUNTER, CLEAR STROBE 
8514 012436 104401 SCOP? :LOOP AGA 4 
8515 oi 44 000742 R 7s t1F NOT, RETURN TO WHERE YOU LEFT OFF 
856 12442 112777 000252 167364 208: ##MOVB #252,@D2VTDR :SEND A CHARACTER 
8517 012450 000002 ATI SALLOW MORE CHARACTERS TO COME 
8518 peeeeeeeenecereeeeerteeee TEST 2 RARAAARARARAREEAEAAEAEEEEREEEE 
8519 S*THIS TEST THAT "SILO ENABLE’’ WILL INHIBIT 
8520 S*RECEIVER INTERRUPTS. AND THAT ON THE 
8521 [*16TH CHAR THAT “SILO ALARM’ WILL CAUSE AN 
852¢ StINTERRUPT WITH 4 RIE SET. 
852 S*THIS WILL DO ALL SELECTED LINES ONE AT A TIME. 
8524 c- gf BRROR PRINTOUTS WILL REPORT TRANSMITTING LINE NO. 
(5) Ar eetoh ane SeRORENRRNERERNRRARENDRNRERRNNNINANNEnNRNNARENANnONN 
4) 012452 000004 $12: SCOPE 
(2) 012454 012737 909003 0012 : MOV #2,$TSTNM ZLOAD THE NUMBER OF THIS TEST 
(3) 012462 012737 012752 00136 MOV #TST3,NEXT :POINT TO THE START OF THE NEXT TEST 
8527 012470 012737 012514 001364 MOV #3$,LOCK SSET FOR L 
8528 012476 104417 CLASM SET DCR iN CSR AND SET MNTFLG 
8529 012500 104421 LPRSET ‘LOAD LINE PARAMETERS 
83 912902 9950 7 001374 CLR SAVLIN sINIT LINE IN 
531 012506 4 BUF SET [ZERO DATA BU 
855¢ 912510 01270 909001 MOV 1,R2 SLINE POINTER 
8533 012514 o1 777 (012726 167316 3$: MOV #11$ aDzvVRIV SET FOR UNEXPECTED INTER. 
8534 O1e5¢2 12777 000200 16731 MOV #MASK ,aDZVRIS PRIO. 
8535 012530 052777 010140 167252 BIS WMSENAB! SILOEN!RIE, dpoves 
8536 START SCANNER & SET SILO ENABLE 
8537 012536 030237 001366 BIT R2,LINE HVALID Cine? 
8538 012542 001477 BEQ F NOT GO TO NEXT LINE 
8539 012544 005777 167244 TST aDZ7VRBUF SEMPTY THE SILO 
8540 012550 100775 BMI 26 :BR IF DATA VALID IS SET! 
8541 012552 106427 900000 MIPS = #O SET PROCESSOR PRIORITY io 0 
8542 01 356 013700 001374 MOV SAVLIN,RO iMAKE OFFSET 
8543 012562 0063 ASL MAKE POWER OF TWO 
8544 012564 91087 167234 MOV R2,aDZVTCR [SET TCR BIT 
8545 012570 5004 S$: CLR RG 
8546 012572 005777 167212 6S: TST aDZVCSR 
8547 012576 100404 BMI 7$ 
8548 912600 104414 DELAY 
8549 012602 905204 INC RG 
8550 912604 137 BNE $ 
8551 01 606 10400 ERROR :*TRDY FAILED TO SET 
8952 01261 11607 o01238 6 167216 7$: MOVB  TDO(RO),aDZVTOR LOAD A CHARACTER 
8553 01 616 903260 0014 INC TDO(RO) [SET UP NEXT SHARACTER 
8594 O126e8 022760 0000 001426 CMe #15.,TDO(RO) 315 CHARS YET? 
8556 012652 0 4306 020000 167150 BIT #SILOAL,@DZVCSR ;SILO ALARM = 0 ? 
8557 01 640 001401 BEQ +4 :Y 
8558 012642 104013 ERROR 13 '*SILO ALARM SHOULD NOT = 1 


ore nn a ee  -  -  - = 
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8559 sUNTIL 16. DATA CHARACTERS 
8560 012644 00075 $ BR 6$ 
8561 012646 012777 012732 167164 8$: MOV #12$ ,adZVRIV 3SET NEW VECTOR 
8562 012654 005777 167130 TST aDZVCSR READY FOR 16TH CHAR 
8563 012660 100375 BPL := 
8564 815086 016077 001426 167144 MOV TDOC(RO) ,@DZVTDR ;LOAD THE 16TH CHAR. 

8565 012670 0050 CLR R 

5208 012672 032777 020000 167110 9$: BIT #SILOAL ,adZVCSR 

8567 012700 001005 BNE 10$ 

8568 012702 104414 DELAY 

8569 012704 005204 INC R4 

8570 012706 001371 BNE 9$ 

8571 012710 104014 ERROR 14 *SILO ALARM FAILED TO SET! 
8572 012712 000410 BR 17$ SILO ALARM SHOULD =1 AFTER 16. 
857 DATA CHARACTERS 

8574 012714 000240 10$: NOP ;STALL 

8575 012716 000240 

8576 012720 104027 ERROR 27 SILO ALARM NOT INTERRUPTING. 
8577 012722 0004 17$ sCONTINUE TEST. 

8578 012724 022626 118: POP2SP sFAKE RTI 

8579 012726 104012 ERROR I 3RX SHOULD NOT INTERRUPT 
8580 012730 000401 BR 17$ 3 CONTI 

8581 012732 Beesee 128: POP2SP :GOOD_ INTERRUPT TO HERE. 
8582 012734 040277 167064 17$: BIC R2,aDZVTCR sCLR_ TCR BIT 

8583 012740 104401 SCOP1 3LOOP? 

8584 012742 005237 001374 18$: INC SAVLIN 7 INC_EXPECTED LINE 

8585 012746 104420 SHIFT sNEXT LINE 

8586 012750 000661 BR 3$ 7 YES 
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8588 preeeeneneeeeeeerereeeene TEST > eee eeeaeeeneeeeeneeehekeeeenee 
| 8589 3 THIS TEST RUNS ALL LINES FULL BORE 
| 8590 : *BASED UPON QUALIFIED 

8591 3*.. THIS IS AN INTERRUPT TEST ON THE RECEIVER AND 
| 8592 rest {RANomu TER 
ese 
(5) TEFL LEE AIS LLL E TR  E 
(4) 012752 000004 TS13: SCOPE 
(2) 012754 012737 000003 oO tge8 MOV #3, STSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) Og 766 012737 013514 00136 #TST4, NEXT sPOINT TO THE START OF iy ty TEST 
8595 012770 104417 DCLASM SET DCLR IN CSR AND SET FLG 
8596 012772 013737 001366 013512 MOV LINE ,RXTCR 3SET IMAGE OF TCR BITS 
8597 01 013737 001366 013232 MOV LINE, TXTCR 3SEC IMAGE OF TCR BITS 
8598 013006 104421 LPRSET ;LOAD LINE PARAMETERS 
8599 013010 104422 BUF SET 3ZERO DATA BUFFER 
013012 012777 013234 167020 MOV #RXSVC ,A@DZVRIV SET UP REC INTR VECTOR 
8601 013020 012777 000200 167014 MOV #MASK ,aDZVRIS : STATU Ss 
8602 013026 012777 013120 167010 MOV oikzergesetiae SET UP TRANS INTR VECTOR 
8603 013034 012777 000200 167004 MOV #MASK ,aDZVTIS U 
8604 013042 052777 040140 166740 BIS #MSENAB'RIE!TIE, aDzVCSR asst MASTER SCAN ENABLE 
8605 013050 113777 001366 166746 MOVB LINE, geave CR sSET TCR "BIT S 
sone 013056 106427 000000 MTPS #CLEAR sALLOW INTERRUPTS 
8608 » 
8609 013062 005037 013116 SNAP: CLR 4$ sCLEAR DELAY COUNTER 
8610 013066 104414 2$: DELAY :WAIT FOR RECEIVERS TO FINISH 
8611 B18 105737 013512 TSTB RXTCR SWAIT FOR ALL RECIEVERS TO FINISH 
8612 013074 ebb BNE 3$ : 
8613 013076 000137 013440 JMP OUT 
8614 013102 005237 013116 3$: INC 4% s INCREMENT DELAY COUNTER 
8615 013106 001367 BNE 2s :DELAY Y FINISH aH 
8616 013110 104007 ERROR 7 TRANSMITTER FAILED TO INTERRUPT 
8617 013112 104011 ERROR 11 3 SRECEIVER rouse TO INTERRUPT 
8618 013114 104400 ADVANCE SLEAVE THIS TEST 
Heh 013116 000000 4$: 
8621 ;TRANS INTR SVC ROUTINE 
o6es 013120 117703 166666 TXSVC: MOVB @HDZVCSR,R3 3FIND LINE NO. 
862 013124 042703 177774 BIC #°C<3>,R5 SISOLATE LINE NO. 
8624 0131 010304 MOV R3,R4 sSAVE LINE NO. 
8625 013132 010337 001374 MOV R3,SAVLIN sSAVE LINE NO. 
8626 013136 005777 166646 TST adZVcsR STRANS READY SET ? 
8627 013142 100401 BMI +4 
8628 013144 104003 ERROR 3 : TRANSMITTER FAILED 
8629 Otsies one rOe 000001 MOV #1,R2 SET UP POSITION POINTER 
8630 013152 10530 3$: DECB R3 i1S IT THIS LINE ? 
8631 013154 100402 BMI 4$ 
8632 013156 006302 ASL R2 UP THE LINE # 
8633 013160 000774 BR 3$ 760 ° ROUND AGAIN 
8634 013162 030237 001366 4$: BIT R2,LINE VALID LINE? 
8635 013166 001001 BNE Ry) 
8636 013170 104015 ERROR 15 NO INVALID LINE! !!! 
8637 013172 030237 013232 BIT R2,TXTCR SDATA FINISHED? 
8638 013176 001003 BNE 6$ 31F NOT SEND CHAR 
8639 013200 040277 166620 BIC R2,aDZVTCR ‘CLEAR TCR BIT 
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8640 013204 00041 BR 5$ ;RETURN 
8641 013206 006304 6$: ASL RG {MAKE POWER OF 2 
864 013210 116477 001426 166616 MOVB  TDO(R4),@DZVTDR :LOAD CHARACTER 
864 O13 1g 105264 001426 INCB  —s- TDOCR4) [SET UP NEXT CHARACTER 
8644 013222 001002 BNE 5$ sLAST CHARACTER ? 
8645 013224 040237 013232 BIC R2,TXTCR S INDICAT LINE FINISHED 
8646 013230 000002 5$: RTI 
8648 013232 000000 TXTCR: 0 
8650 sREC INTR SVC ROUTINE 
8651 013234 105777 166550 RXSVC: TSTB  aDZVCSR :REC DONE ? 
8652 013240 100401 BMI : iY 
8653 013242 104004 ERROR 4 ‘FALSE INTERRUPT 
8654 013244 032777 020000 166536 BIT WSILOAL,@DZVCSR :SILO ALARM? 
8655 013252 001401 BEQ +6 : 
8656 013254 104013 ERROR 13 'SILO ALARM SHOULD NOT =1 
8657 013256 017704 166532 MOV a@DZVRBUF ,R4 [SAVE IT 
8658 013262 010403 MOV R4,R3 
8659 013264 000303 SWAB 
8660 013266 042703 177774 BIC #°C<3>,R3 :STRIP JUNK 
8661 013272 010337 001374 MOV R3, SAVLIN [SAVE LINE NUMBER 
8662 013276 005704 TST Re :DATA VALID? 
8663 013300 100401 BMI 4$ sIF YES SKIP ERROR PRINTOUT 
8664 013302 104023 ERROR 23 sYOU LOSE ...DATA VALID WAS'‘NT SET 
8665 013304 032704 040000 4$: BIT #OVRRUN,R4S :TEST FOR OVERRUN 
8666 013310 001401 BEQ 1$ sIF NO OVERRUN SKIP ERROR 
8667 Ol sele 1 0ee ERROR 24 ;DATA OVERRUN 
8668 013314 0327 020000 1$: BIT #FRMERR, RS :DATA FRAMING ERROR 
8669 013320 001401 BEQ $ TIF NO FRAMING ERROR CONTINUE 
8670 013322 104025 ERROR 25 [FRAMING ERROR 
8671 013324 032704 010000 23: BIT #PARER,R4 sTEST FOR PARITY ERROR 
8672 013330 001401 BEQ 3$ [BRANCH IF NO ERROR 
8673 013332 104026 ERROR 26 sTYPE OUT PARITY ERROR 
8674 013334 012702 000001 3$: MOV #1,R2 :SET UP POSITION POINTER 
8675 013340 105303 5$: DECB aR 
8676 013342 100408 BMI 63 
8677 013344 00630 ASL R2 ;RE POSITION POINTER 
8678 013346 000774 BR 5$ [GO "ROUND AGAIN 
8679 013350 030237 001366 6$: BIT R2,LINE [LINE VALID ? 
8680 013354 001001 BNE ey) YES 
8681 013356 104015 ERROR 15 S INVALID LINE # 
8682 013360 013703 001374 MOV SAVLIN,R3 :GET THE LINE NUMBER AGAIN 
8683 013364 006303 ASL sUSE R3 AS A POINTER IN THE DATA TABLE 
8684 013366 126304 001436 CMPB —s- TRO(R3),R4 [DOES THE DATA CHARACTER COMPARE ? 
8685 013372 001410 BEQ 7 YES 
8686 013374 013705 001374 MOV SAVLIN,RS [MOVE LINE NO INTO EXPECTED 
8687 013400 000305 SWAB RS SADJUST TO HIGH BYTE 
8688 013402 052705 1 BIS #DVALID,RS [SET DVALID IN EXPECTED 
8689 0134 56305 bosese BIS TRO(R3) .R5 [SET DATA IN EXPECTED 
8690 01341 104005 ERROR 5 :*NO, DATA DOES NOT COMPARE 
8691 01341 00363 001436 7$: INC TROC(R3) ;SET UP FOR NEXT CHARACTER 
869 0134 0 105 2 001436 iste TROCR ) SALL CHARS DONE? 
+ 
8694 0134 0 01351 BIC R2,RXTCR 3ZERO LINE DONE INDICATOR. 
8695 0134 O19 976 01306 MOV #SNAP, (SP) SRESET THE BACKGROUND TIMING LOOP 
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RTI 
:FINISH UP ROUTINE 
OUT: TPS  #MASK zSTOP ALL INTERRUPTS 
DEVICE.CLR SCLEAR ALL INTERRUPTS AWAY 
CLR R3 
CLR SAVLIN 
MOV 1,R2 
1$: BIT R2,LINE :VALID LINE ? 
CAP #400, TROCR3) :RECEIVED A BINARY COUNT PATTERN ? 
+ 
ERROR 30 ‘THE LINE FAILED, TO RECEIVE A FULL 
BINARY COUNT PATTERN 
2$: INC SAVLIN 3SET UP FOR NEXT LINE 
TST (R3)+ 
SHIFT :SET UP NEXT LINE POINTER 
BR 1$ FINISHED 
RXTCR: 0 :RX IMAGE oF TCR BITS 
skheneeeeeaeerereeeeeezene TEST 4 stecaneeeneneanerereneneenenes 
'*#DZ7V11 RELATIVE TIMING TEST. 
'*EACH SELECTED LINE WILL IN TURN RUN 16. CHARS 
[*AT ALL BAUD RATES AND THEN THE HIGHEST BAUD 
ZtWITH ALL CHAR LENGTHS. EACH NEW PARAMETER SHOULD 
i #DE CREASE IN TIME FROM PREVIOUS PARAMETERS SELECTED. 
eTHE T ME IS CHECKED AGAINST THE LAST PARAMETER USED 
LOWER TIME IS EXPECTED ON THE CURRENT PARAMETER. 
< SPARAMET ERS ARE: 
:* EIGHT BITS/PER/CHAR ~ TWO STOP BITS AT 
* 50 110, 134. 5, 150, 300, 600, 1200, 1800, 2000 
3* 3050" S600" 4800 a. 0. « 
:* 19.2 K BAUD = fwO STOP 
* SEVEN, SIX, FIVE BITS) 
StAF TER EACH LINE HAS FINISHED ALL THE “ABOVE PARAMETERS 
[*THE NEXT SELECTED LINE Ist HEN TESTED. 
WHEN RUNNING UNDER THE APT MANUFACTURING SYSTEM 
esf nis TEST IS ONLY RUN THE FIRST PASS 
ss 
> RESEHAHAAAAAAAAAAAAAAEKRETATASEARERAAAAAAEARAAEAARAERAAEAAEAERAAARAREREEE 
TS14: SCOPE 
MOV #4,$TS OAD THE NUMBER A THIS TEST 
MOV ast, NeXT POINT TO THE START OF THE NEXT TEST 
V LOCK [USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
B1T8 rt oy [RUNNING UNDER APT? 
BEQ 10$ [IF NOT CONTINUE WITH TEST 
TST SPASS s1F YES IS THIS FIRST PASS 
BEO 108 :IF NOT 1ST PASS SKIP TEST 
JMP @NEXT 
10$: MOV #2, STIMES 3SET UP FOR 2 ITERATIONS 
CLR OFFSET RESET THIS VARIABLE 
CLR SAVLIN SRESET LINE NUMBER INDICATOR 
CLR XMTLIN SUSE THIS WORD TO TELL WHAT LINE TRANSMITTED 


SEQ 0071 
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| B747 013606 000001 MOV {USE R2 ASA BIT POINTER 
8748 013610 135 010070 MOV gatucn! SOLE rGHT! Twos TOP. R3 D TEMPORARY PARAMETERS 
| 8749 013614 O3058 001366 1$: BIT R2.LINE 31 Cink acti 
8750 013620 001014 BNE iF $0 GET STA RFED 
8751 013622 012703 910070 28: MOV #RCVON!S50!E 1GHT! Het R3 ;LOAD ,PARAME TERS TEMPORARILY 
8752 01 005257 001 76 INC TO THE NE NE TO TRANSMIT 
875 0136 Ohe 03 BIC ‘mak it T SURE TEMPORARY. PARAMETERS POINT TO 0 
8754 01 36 05 705 001376 BIS are TADD DESIRED LINE NUMBER 
8755 013642 005037 015134 CLR OFFSET 
8756 013646 104420 SHIFT :POINT TO THE NEXT LINE 
8757 013650 000761 1$ [PROCESS THE NEXT LINE 
8758 013652 3$: 
qd) 013652 104417 DCLASM ZCLEAR DEVICE AND SE MAINT BIT IF I MODE 
8759 013654 042703 010000 BIC #RCVON,R3 SZERO PARAMTERS FOR TX LINE 
8760 013660 010377 166134 MOV R3. gadzVLPR TLOAD PARAMTERS FOR 1x 
8761 013664 005737 001372 TST 3STA GGER ED? 
8762 013670 100007 BPL 1008 F NO 
8763 013672 000241 CLC :SET UP LINE 
8764 013674 3 ROR R3 
8765 013676 103002 BCC 988 7BR IF LINE WAS EVEN 
8766 013700 000241 CLC ; PREPARE TO MKE LINE EVEN 
8767 013702 000401 BR 99$ TINUE 
8768 013704 000261 98$: SEC {PREPARE TO MAKE LINE ODD 
8769 013706 006103 99$: ROL R3 [SET ALTERED LINE 
8770 013710 052703 010000 100$: BIS #RCVON,R3 [SET RX ON 
8771 013714 010377 166100 MOV R3,aDZVLPR [LOAD RX PARAMETERS 
8772 013720 010337 001374 MOV R3,SAVLIN [SET FOR RECEIV. LINE 
773 013724 04 737 177774 001374 BIC aec<s> SSAVLIN ISOLATE LINE NO. 
774 0137 703 000003 BIC #3,R [CLEAR OLD LINE @ 
8775 013736 053703 00137 BIS XMTLIN,R3 [SET LINE UP AGAIN 
8776 013742 010337 00140 MOV R3, REGIST [SAVE PARAMETERS FOR PRINTOUT 
8777 013746 loaaee BUF SET [ZERO DATA BUFFER 
8778 013750 005037 001342 CLR $TMPO SUSE STMPO T0 COUNT TOTAL NUMBER OF TRANSMISSIONS 
8779 013754 065037 344 CLR STMP1 SINITIALIZE THE TIMER 
8780 013760 005037 001350 CLR STMP3 SINITIALIZE THESE BITS ALSO 
8781 013764 012737 20 001400 MOV #20,xM [SET HOW MANY CHARACTERS TO TRANSMIT 
8782 013772 012777 014562 166044 MOV @XMTSRV,aDZVTIV 
8783 014000 012777 014732 166032 MOV #RXISR1@DZVRIV 
8784 014006 O12777 000200 166026 MOV #MASK ,aDZVRIS 
8785 014014 012777 000200 166024 MOV #MASK.aDZVTIS 
8786 014022 110277 165776 MOVB 2, aDZVTCR START THE VALID LINE 
8787 014026 052777 040140 165754 BIS ATIE! RIE !MSENAB,@DZVCS 
8788 014034 106427 mTPS)o#t tiv Rue PRIORITY TO ALLOW INTERRUPTS 
8789 014040 032777 000100 165742 4$: BIT #RIE ,aDZVCSR at ROUTINE DONE? 
8790 014046 001407 BEQ 5$ [WHEN ALL Is DONE RX IE IS CLEARED IN ISR. 
8791 01405 00237 001344 INC STMP1 S INCREMENT TIMER 
8792 014054 001371 BNE 4$ [WHEN IT OVERFLOWS 
879 014056 005 37 001350 INC STMP3 3CATCH CARRY 
8794 014 1 BNE 4$ [CONTINUE TEST 
8795 014064 104011 ERROR 11 ZINTERRUPTS NOT FINISHED 
8796 14066 004737 007046 5$: JSR PC, SERV.G <*G>? 
8797 01407 104401 SCOP1 ‘Soop? 
8798 014074 062737 900002 015134 ADD #2, OFFSET 
8799 914102 02 703 0174 CHP #1 7400,R3 
$801 b1e1%6 833908 000030 BIT #BIT4*BIT3,R3 1S CHARACTER SIZE DONE? 
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8802 014114 00164 BEQ 2$ 
880 O14116 162703 000010 SUB #B1T3,R3 
8804 01412 90065 3$ 
| 8805 O14194 062703 000400 6$: ADD #400,R3 
| 8806 014130 000650 BR 3$ 
| §807 secur Gain Puuction GF tv TEST § xeeeeenanaeeneraneeeeeacanetes 
a: ea [THE MAIN FUNCTION OF THIS TEST Is TO VERIFY 
| «@) * THAT eee (PARITY ERROR) CAN BE FLAGGED BY 
a S*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 
..’ a :*YOU ARE IN ‘STAGGERED’ MODE. 
| 6) *40(8) CHARS ARE USED FOR THIS T 
' @ TALL SELECTED LINES WILL BE ENABLED’ A AT THE SAME TIME. 
aD :*THIS TEST FIRST CHECKS EVEN PARITY FOR ODD LINES AND 
(1) ad “ODD PARITY FOR EVEN LINES, THEN IT CHECKS THE REVERSE. 
' ss 
(93 : SREAAAEAAAAAAAAAAAAEARAAAEAAKERAEAAAAEAAEAAARAAAARAAARARAAARAAEERERAAERE 
(3) 014132 000004 $15: SCOPE 
(3) 014134 012737 000005 001246 MOV #5,$TSTNM ZLOAD THE NUMBER OF THIS TEST 
(2) 014142 012737 004140 001 MOV #SEOP NEXT :POINT TO THE END-OF=PASS HANDLER 
(1) 014150 005737 001372 TST MODE 31S THIS STAGGERED MODE? 
(1) 014154 100131 BPL 17$ =1F NOT, DON'T DO THIS TEST 
(1) 014156 105037 001425 CLRB  DONFLG :SET OP’ FOR FIRST TEST PASS 
(1) 0146162 104413 14$:  DEVICE.CLR [SET DCLR IN CSR 
(1) 014164 013701 001370 MOV PAR,R1 {USE RT TO BUILD PARAMETERS TO BE LOADED 
(1) 014170 042701 000200 BIC #ODDPAR,R1 sMAKE SURE ODD PARITY ISN'T SET 
(1) 014174 052701 000100 BIS #PARITY.R1 [MAKE SURE PARITY IS TURNED ON 
(1) O14 00 01 708 1 MOV a1. SUSE _R2 AS A LINE POINTER 
(1) 014204 2 1 1$: BIT R2, LINE :1S THIS AV LINE? 
(1) 014210 001420 BEQ :I1F NOT, SKIP TO THE NEXT LINE 
(1) 014212 105737 001425 TSTB DONFLG SFIRST PASS THROUGH TE 
(1) 014216 001004 BNE :1F NO BRANCH 
(1) 014220 032701 000001 BIT #81T0,R1 31S THIS LINE AN ODD LINE? 
(1) 0142246 001006 BNE 2$ zIF IT'S ODD, USE EVEN PARITY 
(1) 014226 00040 BR 16$ Z1F EVEN SET FOR ODD PARITY 
(1) 014230 032701 000001 15$ BIT #81T0,R1 31F THE LINE IS EVEN SET FOR EVEN PAR. 
(1) 014234 001402 BEQ 23 7GO0 LOAD PARAMETER 
(1) 014036 52701 0002 16$: BIS #ODDPAR,R1 ZF IT'S ODD, USE ODD P. 
(1) 014242 010177 16555 28: MOV RI .@DZVLPR SLOAD THE LINE PARAMETER REGISTER 
(1) 914246 042701 BIC #ODDPAR,R1 [SET UP THE NEXT PARITY 
(1) 014252 005201 3$: INC ZPOINT TO THE NEXT LINE 
(1) 014254 006 ASL R2 : 
(1) 014 032702 000020 BIT #B1T4,R2 TALL LINES DONE? 
(1) 014 00175 BEQ 1$ SIF NOT, GO CHECK THE NEXT LINE 
(1) 014 64 005037 001374 CLR SAVLIN [CLEAR THE LINE NUMBER INDICATOR 
(1) 014 005037 00134 CLR STMPO [USE STMPO TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
(1) 0142746 903 3 CLR R3 [USE R3 TO COUNT Tor AL NUMBER OF RECEPTION 
(1) 14 76 012737 000040 001400 MOV #40, XMTCNT 7 TRANSMIT A BINARY COUNT PATTERN(00-40) 
(1) 014 loaaeg BUF SET [ZERO BUFFER AREA 
(2) 014 or 7 14562 165530 MOV #XMTSRV,@DZVTIV :SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 014314 012777 014442 16551 MOV RIV 3SET UP THE RECEIVER INTERRUPT VECTOR 
(2) 014 12777 2 16551 MOV SASK .ODZVRIS 7SET THE INTERRUPT VECTOR STATUS 
(2) 014 12777 16551 MOV VTIS SET TRANSMITTER INTERRUPT PRIORITY 
(2) 014336 052777 04 140 165444 BIS amie’ f1e mSENAB,SD2VC CSR ;ENABLE THE DEVICE 
(1) 14 4 113777 001 165452 MOVB LINE @dcVT CR —;ENABLE ALL SELECTED LINES 
(1) 014352 1 boon MTPS TALLOW INTERRUPTS 
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4$: 
5$: 


6$: 


8$: 
17$: 


10$: 


12$: 


13$: 


CLR 


an 
—— 


ADVANCE 


7$ 

8$ 

#RIE ,aDZVCSR sWHEN RX DONE; RIE WILL =0 

gs 2BR IF ALL DONE 

Py) 

if 

11 3*RX FAILED TO FINISH (INTERRUPT) 
#MASK SHUT OFF INTERRUPTS 

DONFLG 21S THIS SECOND TEST PASS 

17$ 31F SO GET OUT 

DONFLG ZINDICATE FIRST TEST PASS DONE 
14$ START OVER 


sRECEIVER SERVICE ROUTINE 


@DZVRBUF .R4 :GET THE CHARACT ER 
R4,R1 [COPY THE RECEIVED INFORMATION 
R1 [GET THE LINE NUMBER IN THE LOWER BYTE 
#°C<3>,R1 SISOLATE THE LINE 
R1,SAVLIN [SET LINE INDIC. TO RECEIVING LINE 
RG t1$ DATA VALID SET? 
198 TIF YES DON'T PRINT ERROR 
2 [DATA VALID NOT SET 
R1,RS [BUILD LINE NO. FOR 
RS TEXPECTED DATA IN RECEIVER BUFFER 
1 ADJUST R1 FOR OFFSET 

TROCR1) RS OAD CHARACTER IN EXPECTED 
#DVALID!PARER, RS BUILD WHAT WAS EXPECTED 
RGR :DOES RECEIVED=EXPECTED 
12$ 31F YES DON'T PRINT ERROR 
6 *ERROR= DID NOT GET CORRECT INFORMATION 
TROCR1) iset up THE NEXT CHARACTER 
R3 [ADD TO THE TOTAL RECEIVED COUNT 
#TIE,aDZVCSR ZARE TRANSA SMISSIONS DONE? 
13 GO RECEIVE SOME MORE 
STMPO,R3 ‘ARE ALL CHARACTERS RECEIVED? 

TIF NO, GO RECEIVE SOME MORE 
MRIE,@DZVCSR DISABLE RECEIVER INTERRUPTS 
#6$, (SP) 3¢ RUNCH THE STACK 

URN AND F NISH 

#4$, (SP) CRUNCH 


THE STA 
360 BACK TO RECEIVER WAIT LOOP 


SEQ 0074 
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| 8809 
8810 ; TRANSMITTER INTERRUPT SERVICE 
| ° i ee ee 
| B81 
Beis 014562 117701 S77 XMTSRV: MOVB aYDZVCSR R1 :GET THE LINE NUMBER. 
8814 014566 Quero1 17 BIC C<3>,R1 JUNK 
8815 014572 013705 MOV SAVLIN, RS [SAVE REC. LINE NO. 
8816 914576 010137 OO ieae MOV R1,SAVLIN 3LOAD TR ANS” LINE NO FOR ERROR PRINTOUT 
8817 01460 006301 ASL TADJUST R1 FOR OFFSET 
8818 014604 023761 001400 001426 CMP XMTCNT,TDO(R1) HAVE ALL CHAR. BEEN SENT 
8819 014612 003414 BLE 6$ TIF YES GO CLEAR TCR 
8820 014614 005777 165170 TST aDZVCSR :TRDY SET? 
8821 014620 100401 BMI $ SIF YES GO LOAD CHAR. 
8822 014622 104003 ERROR :*TRANSMITTER NOT READY= FALSE INTERRUPT 
8823 014624 116177 001426 165202 2%: MOVB TDO(R1),aDZVTOR LOAD THE CURRENT CHARACTER FOR THIS LINE 
8824 014632 005261 001426 INC TDO(R1) SET UP NEXT CHARACTER FOR THIS LINE 
8825 014636 005237 00134 INC $TMPO <UP THE NUMBER OF TRANSMISSIONS 
8826 014642 000415 BR 7$ [G0 RETURN 
8827 014644 012700 000001 6$: MOV #1,R0 3SET UP A DESELECTION POINTER 
8828 014650 006201 ASR R1 T LINE AGA 
8829 014652 005301 12$: DEC R1 :REDUCE THE COUNT. WAS THIS THE LINE? 
8830 014654 100402 BMI 3$ iF GO DISABLE THE ENABLE BIT FOR IT 
8831 014656 006300 ASL RO MO P tHe POINTER TO THE NEXT LINE 
8832 014660 000774 BR 12$ CO. CHECK THE NEXT LINE 
8833 014662 140077 165136 3$: BICB RO,aDZVTCR :DISABLE THE LINE POINTED TO BY RO 
8834 014666 001003 BNE 7$ SIF MORE LINES ARE ACTI CONTINUE TRANSMIT 
8835 014670 042777 040000 165112 BIC #TIE,aDZVCSR =: IF _NOT, DISABLE TRANSALT TERI INTERRUPTS 
88 014676 10537 001374 7$: MOV R5,SAVLIN SRESTORE RECEIV. 
8837 1470 2 RTI [RETURN TO THE TIMING Loop 
8859 ; RELATIVE TIME BUILDING ROUTINE 
8841 . 
8842 014704 012737 02 001346 BUILD: MOV #2, $TMP2 ;ROTATE 2 BITS BACK INTO $TMP1 
8843 014712 006037 001350 1$: ROR $TMP3 :GET THE BITS FROM $TMP3, THE HIGH BYTE 
8844 014716 006037 001344 ROR STMP1 SOF THE RELATIVE TIME COUNTER. PUT THEM BACK 
8845 014722 005337 001346 DEC $TMP2 SINTO $TMP1 USING THE CARRY BIT WITH 
8846 SROTATE INSTRUCTIONS 
8847 014726 001371 BNE 1$ [REDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE 
8848 014730 000207 RTS PC [RETURN TO CALLING TEST 
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sRECEIVER SERVICE ROUTINE 


RXISR1: TSTB 
BMI 
ERROR 
1$: MO 
2$: BIT 
8 
E 
6$: BI 
8 
E 
9$: BIT 


3$: 


4$: INC 


7$: att 
OFFSET: O 





aDZVCSR 

er 
@DZVRBUF ,R4 

ae 
4 

#FRMERR,R4 
9$ 

25 

#PARER ,R4 
3$ 


26 

SAVLIN,R1 

RS -TROCR1) 
TROCR1) RS 

#*C<377>, RS 

ew: oR4 

$50. TROCRT 

TROCRI) ,STMPO 

PC,BUILD 

OFFSET, RO 

STMP1,TMTBL(RO) : 
FFSET 

=(RO) 

TMTBL (RO) ,STMP1 
TMTBL (ROD RS 


21S ~ OS Senet REALLY READY? 


ERVI 

S*ERR ROR RE R DONE FLAG ISN'T SET 

SAVE: THe™ RECELUER INFORMATION 

“TF VALID PROCESS IT 

Tenor DATA VALID WASN'T SET 
LAG SET? 


3 IF A ON’T TYPE ERROR 
OVERRUN RROR 
FRAMING cee FLAG SET? 
NOT DON'T TY 


: F PE ERROR 
sFRAMING ERROR 

SPARITY ERROR FLAG SET? 

cif Ne CONTINUE PROCESSING 
SERROR= RECEIVER ry Dl FLAG SET 
3CA Pe DATA OFFSET 


LIGN A_WORD BOUNDARY 
31S THE CHARACTER WHAT IT SHOULD BE? 
cIF $0,GO CONTINUE PROCESSING 

T WHAT WAS EXPECTED FOR ERROR REPORTING 

SELIMINATE PROPAGATED SIGN 

ISOLATE THE ACTUAL CHARACTER 
i =A TA_ERROR 
: a UP THE NEXT EXPECTED CHARACTER 
sHAVE ALL CHARACTERS BEEN RECEIVED? 
IF NOT RET sat 
; CHARAC. RECEIVED? 
21F SO,GO DETERMINE THE TIMING 
:GET THE REL RELATIVE TIME (SIGNIFICANT BITS) 
SAVE THIS. TEST’S TIME 


[FIRST TEST? 

TIF NOT CHECK THE TIME 

[POINT fo? THE PREV IOUS TIME TAKEN 

318 THIS TIME WHAT IT SHOULD BE? 
GO TO THE NEXT TEST 


so, 
:PLACE “WHAT WAS EXPECTED IN RS 


TIMING ER 
#RIE'MSENAB, avzvisk ; sDISABLE THE DEVICE 


;RETURN TO THE PROGRAM 


SEQ 0076 


mM 6 
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8895 : sERROR TABLE 
8896 Or31z8 Bp 0808 -ERRTAB: 0 sERROR 0 
015142 000000 
015144 015364 EM1 sERROR 
015146 016510 DH1 
015150 016710 dT1 
015152 015437 EM2 sERROR 2 
015154 016534 DH 
015156 016722 DT 
015160 015465 EM3 sERROR 3 
015162 016567 DH3 
015164 016740 DTS 
015166 015524 EM4 sERROR 4 
015170 016567 DH3 
015172 016740 DTS 
015174 015553 EMS sERROR 5 
015176 016601 DH4 
015200 016746 DT4 
015202 015602 EM6 sERROR 6 
015204 016601 DH4 
015206 016746 DT4 
015210 000000 0 
015212 000000 0 
015214 000000 0 
015216 000000 0 
015220 000000 0 
015222 000000 0 
015224 015641 EM11 sERROR 11 
015226 016567 DH3 
015230 016740 DTS 
015232 000000 0 
Oi asee 000000 0 
015236 000000 0 
015240 015677 EM13 sERROR 13 
015242 016567 DH 
015244 016740 dT 
O13g86 015730 EM14 sERROR 14 
bieSe 016567 DH3 
15252 016740 DTS 
013536 dete 3 M15 sERROR 15 
Bia 56 000000 6 
15260 000000 
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015262 016024 EM16 

015264 016567 DH3 

015266 016740 DT3 

015270 016076 EM17 —s ; ERROR 17 

015272 016567 DH3 

015274 016740 DT3 

015276 0161 EM20 

015300 01656 H3 
015302 016740 DT3 | 
015304 016175 EM21  ;ERROR 21 
015306 016630 DHS 

015310 016764 p75 

015312 000000 0 
015314 000000 0 | 
015316 000000 0 
015320 016225 EM23. —s ; ERROR 23 
015322 016567 DH3 
015324 016740 DT3 
015326 016255 EM24 
015330 016567 H3 
015332 016740 DT3 

015334 016303 EM25 

015336 016567 H3 

015340 016740 DT3 

015342 016333 EM26 
015344 016567 DH3 
015346 016740 DT3 
015350 01636 EM27 

015352 01656 DH 

015354 016740 DT3 

015356 01 EM30 

015360 01 DH3 

015262 01 DT3 








‘ 
Se 
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8996 ZERROR MESSAGES 

9000 01 364 047200 020117 052502 EM1:  <ASCIZ <200>/NO BUS REPLY RESPONSE FROM DZV11 REGISTER/ 

9001 015437 200 Besse 44507 EM2: eASCIZ <200>?REGISTER R/W FAILURE? 

S008 015465 $00 051124 047101 €EM3: eASCIZ <200>/TRANSMIT READY (TRDY) NOT SET/ 

9003 015524 051200 041505 044505 EM4:  <:ASCIz <200>/RECEIVER DONE NOT SET/ 

9004 015553 00 040504 040524 EMS:  .ASCIZ <200>/DATA COMPARISON ERROR/ 

9005 015602 042200 0531 050461 EM6:  .ASCIZ <200>/DZV11 *RECEIVER BUFFER* ERROR/ 

9006 015641 200 0425 042503 EM11:  <ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 

9007 015677 200 044523 047514 EM13:  .ASCIZ <200>/SILO ALARM SET TOO S 

9008 015730 051600 046111 020117 EM14: eASCIZ <200>/SILO ALARM FAILED TO SET/ 

9009 015762 040600 052103 047511 EM15:  <ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ 

9010 016024 051200 040505 044504 EM16: eASCIZ <200>/READING DZVRBUF DID NOT CLEAR SILO ALARM/ 

9011 016076 042200 052101 07018) EM17: eASCIZ <200>/DATA VALID SHOULD NOT BE T/ 

2012 016134 051200 041505 044505 EM20: <ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SET/ 

9013 016175 200 042522 040514 EM21:  ASCIZ <200>/RELATIVE TIMING ERROR./ 

9014 016225 00 040504 040524 Em23:  .ASCIZ <200>/DATA VALID IS NOT SET!/ 

9015 016255 00 040504 040524 EM24: <ASCIZ <200>/DAT RR Ti/ 

9016 016303 $00 051106 046501 EM25: eASCIZ <200>/FRAMING ERROR OCCURRED/ 

9017 016333 00 040520 044522 EM26:  .ASCIZ <200>/PARITY ERROR OCCURRED/ 

9018 016362 051600 046111 020117 EM27: eASCIZ <200>/SILO ALARM FAILED TO CAUSE INTERRUPT/ 

path 016430 62 047111 020105 EM30: eASCIZ <200>/LINE DID NOT RECEIVE FULL BINARY COUNT PATTERN/ 

9021 016510 052200 040522 020120 DH1:  .ASCIZ <200>/TRAP PC D2V11 REG/ 

9022 016534 042600 050130 041505 DH2:  :ASCIZ <200>/EXPECTED FOUND REGISTER/ 

9023 016567 200 044514 042516 DH3:  .ASCIZ <200>/LINE NO./ 

9024 016601 200 054105 042520 DH4: eASCIZ <200>/EXPECTED FOUND LINE/ 

eos? 016630 052200 020130 044514 DHS: eASCIZ <200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 

3059 016710 EVEN 

9031 *DATA TABLES FOR ERROR MESSAGES 

9032 016710 000002 pti: 28 

9033 016712 006 003 .BYTE 6,3 

9034 016714 00133 SREG1 

9035 016716 006 001 -BYTE 6,1 

905 016720 001326 $REGO 

9038 0167 2 000003 pT2: 3 

9039 016724 004 “BYTE 6,4 

9040 016726 001 $REG 

9041 016730 006 001 .BYTE 6,1 

9048 16732 001336 $REG4 

9043 016734 006 001 -BYTE 6,1 

sg: 16736 001326 SREGO 

9046 016740 000001 oT3: 1 

9047 01674 005 001 .BYTE 3,1 

aes 016744 001374 SAVLIN 

9050 01674 000003 p14: 3 

9051 01675 006 004 “BYTE 6,4 

2032 16752 001 $REG 

9053 016754 001 -BYTE 6,1 

9054 016756 001 $REG4 

9055 0167 00 001 -BYTE 3,1 

anes 167 001374 SAVLIN 
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9058 016764 
9059 0167 
9060 0167 
9061 01677 
906 16774 
906 19778 
9064 017000 
S066 017006 
907 
9074 
9075 
9076 017006 
9077 017010 
9078 017012 
9079 017014 
9080 017016 
$082 017092 
9083 017024 
9084 017026 
9085 017030 
9086 017032 
9087 017034 
9088 017036 
9089 017040 
9090 017042 
9091 017044 
9092 
9093 
9094 


iSepeCnBe 14 


oon88 


00134 
001344 
001402 


Cc 7 
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005 
011 
007 
001 
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DTS: 
BYTE 3,5 
SAVLIN 
erie 6,9. 
$SREG 
BYTE 6,7 
STMP1 
-BYTE 6,1 
REGIST 
; TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 
DLYTBL: 2450 3s TIME FOR 30 BAUD 
1560 sTIME FOR 75 BAUD 
1120 sTIME FOR 110 BAUD 
750 sTIME FOR 134 BAUD 
660 sTIME FOR 150 BAUD 
330 sTIME FOR 300 BAUD 
150 sTIME FOR $98 BAUD 
60 sTIME FOR 1200 BAUD 
40 sTIME FOR 1800 BAUD 
30 sTIME FOR 2000 BAUD 
20 sTIME FOR 2400 BAUD 
10 sTIME F 600 BAUD 
1 sTIME FOR 4800 BAUD 
1 sTIME FOR 7200 BAUD 
1 sTIME FOR 9600 BAUD 
1 sTIME OF DELAY FOR 19200 BAUD 


DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 


zFOR ALL TESTS TO FUNCTION CORRECTLY ON A LSI11. 


ee. ee ee ee ee 


SEQ 0080 


d 7 
| CNDZB=A MACY11 AD pe 1 15=DEC=82 14:38 PAGE 85 
15=DEC=82 14:35 
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917 zz INIT $BASE AND $VECT1 AND TWEAK THE "‘SGETPAR'' CALLING 
9175 +: SEQUENCE TO ACCEPT THE VALID FALCON RANGE. 
9175 017046 023727 001174 160010 FALCINI: CMP $BASE,#ABASE =; IS $BASE VIRGIN ?? r2GPA 
9176 017054 001003 BNE 1$ : SKIP NEXT IF NOT tIGPA 
9177 017056 012737 174040 001174 MOV #174040,$BASE =: YES, SET ENGINEERING DEFAULT ::GPA 
9178 017064 023727 001170 000300 1$: CMP SVECT1,#@AVECT1 : IS $VECT1 VIRGIN ?? 3 
9179 017072 001003 BNE 2 : SKIP NEXT IF NOT 3 
9180 017074 01 13 000370 001170 MOV #370, $VECT1 + YES, SET ENGINEERING DEFAULT ::GPA 
9181 017102 012737 017146 002354 2$: MOV #3$,GETCSR+2 |: SUBSTITUE CSR TEXT... S:GPA 
g18e 017110 012737 174000 002360 MOV #174000,GETCSR+6 33 
9183 017116 012737 177770 002362 MOV #177770,GETCSR+10 ;...AND VALID RANGE. SIGPA 
9184 017124 012737 017210 002400 MOV #4$,GETVEC+2 ; SUBSTITUTE VECTOR TEXT... S:GPA 
9185 017132 005037 002404 CLR GETVEC+G SIGPA 
9186 017136 012737 000370 002406 MOV #370,GETVEC+10 ;...AND VALID RANGE. t:GPA 
9187 017144 000207 RETURN : RETURN TO CALLER. TIGPA 
9189 017146 930600 052123 041440 3$: .ASCIZ <200>"1ST CSR ADDRESS (174000:177770) ° r:GPA 
017154 051123 040440 042104 
017162 042522 051523 024040 
017170 033461 030064 030060 
017176 030472 033467 03346 
017204 024460 000040 
9190 017210 030600 O5e125 053040 4$: .ASCIZ <200>"1ST VECTOR ADDRESS (000:370) '° s3GPA 
017216 041505 047524 020122 
017224 042101 051104 051505 
gisep Gehuss GAME? Q3t0e 
Oi 75ee $30060 $0000 
gi91 EVEN r2GPA 
919 sSFREE= <1000-.>/2 : FREE WORDS LEFT. r:GPA 
9194 : IF LT SFREE S:GPA 
9195 ; “ERROR ; VECTOR OVERLAY SPACE EXCEEDED S:GPA 
9196 ; ENDC 3 
9197 : 
9199 017252 CORMAX: 
9203 ZTHE FOLLOWING CALL TO CNMAC2.SML ADDED TO INIT FALCON 
9204 "SPECIFICS. 
9205 017252 POINT=, ZSAVE POINTER 
(1) 000100 .=100 
(1) 900100 017252 $CLKVEC SLKVEC HANDLER 
(1) 102 000300 300 S INTERRUPT HANDLER PRI 
(1) 000140 .=140 SBRKV 
(1) 000140 170000 170000 [ODT START ADDRESS 
(1) 000142 900300 300 *PRIORITY 
(1) 01725 .=POINT “RESTORE POINTER 
(1) 017252 104402 017260 SCLKVEC: TYPE .CLKRES 
(1) 017568 ita ts 5514 042526 CLKMES: .ASCIZ 21 5><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 017266 020103 047111 042524 
(1) 017274 051122 $0125 020124 
(1) 017 02 02 45 15 3 
(1) 01731 117 042516 0527 
(1) 017316 046040 041524 000040 
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9206 017324 000001 
9207 000001 


2 14:3 


"ts 14:38 PAGE 85-1 
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KXTFLAG:1 
-END 
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|CNDZBA.P11 15=DEC= CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0083 
ABASE = 16009 82944 Het: 9175 
)ACDW1 = 000017 82994 403 
ACDW2 = 000000 403 
ACPUOP= 000000 8403 

ACTIVE 001420 840354" 8405* 
ADDWO = 017470 82984 8403 
ADDW1 = 01747 82984 8403 
ADDW10= 017470 82984 8403 
ADDW11= 017470 82984 8403 
ADDWI2= 017470 82984 8403 
ADDW13= 017470 82984 8403 
ADDW14= 017470 82984 8403 
ADDW15= 017470 82984 403 
ADDW2 = 017470 82984 8403 
ADDWS = 017470 82984 8403 
ADDWS = 017470 82984 8403 
ADDWS = 017470 82984 8403 
ADDW6 = 017 82984 8403 
ADDW? = 017470 82984 8403 
ADDWS = 017470 82984 8403 
ADDW9 = 017470 82984 03 
ADEVCT= 8403 

VM = 83004 8403 
ADRCNT 005735 84054* 
ADVANC= 104400 84034 8405 8618 8807 
AENV. = 000000 8403 
arate = 000000 rts: 

= 
i= 000000 840 

AMADR2= 000000 8403 
AMADR3= 000000 8403 
AMADR4= 000000 8403 
AMAMS1= 000000 8403 
AMAMS2= 000000 403 
AMAMS3= 000000 40 
AMAMS4= 000000 840 
AMSGAD= 000000 8403 
AMSGLG= 000000 403 
AMSGTY= 000000 8403 
AMTYP1= 000000 03 
AMTYP2= 000000 8403 
AMTYP3= 000000 840 
AMTYP4= 000000 840 
APASS = 000000 840 
APRIOR= 000000 403 
APTCSU= 000040 054 

TENV= 000001 8405¢ 
APTSIZ= Boot Op 0S# 
APTSPO= 100 05¢ 
ASWREG= 000000 rt} 
ATESTN= 000000 0 

SuR,= 900000 8203 

= 

auto, $ 011 0 0S# 
AVECT1= 000300 295¢ 8405 9178 
AVECT2= 000000 03 


71 
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| CNDZBA.P11 =DEC=-82 14:35 
BINWRD 006210 4054 
BITO = 000001 4034 8807 
BITOO = 000001 ato 
BITO1 = 000002 0 
ott = 000004 840 
BITOS = 000010 840 
BITO4 = 000020 84034 
BITOS = 000040 840 
BITO6 = 000100 840 
BITO7 = 000200 84034 
BITO8 = 000400 84034 
BITO9 = 001000 84034 
BIT1 = 000002 84034 
BIT10 = 002000 84034 
BIT11 = 004000 84034 8405 
ainte = 010000 84034 
BIT13 = 020000 84034 
BIT14 = 040000 84034 8405 
BIT15 = 100000 84034 
Bite = 000004 84034 
BITS = 000010 84034 8801 
BIT4 = 000020 84034 8405 
BITS = 000040 84034 8405 
BIT6 = 000100 84034 
BIT? = 000200 84034 8405 
BIT8 = 000400 84034 
BIT9 = 001000 84034 
BPTVEC= p0018 0 
BRKVEC= 140 40 
BRKO = 000400 84034 
BRK1 = 001000 84034 
BRK2 = 002000 84034 
BRKS = 004000 84034 
BRwW 004614 840 84054 
BUFSET= 104422 rh 8428 
BUILD 014704 42 8881 
CHRCNT 006206 84054 
034  8606* 

CLKMES 017260 92054 
CNVRT = 412 034 8405 
CONVRT= 104411 84034 8405 
C x 017252 91994 9200 
COO )=— =: 000400 84034 
CO1 == 001000 84034 
coe = 002000 84034 
co = 004000 4034 
CR = 15 4034 $403 
CRLF = 9 84034 05 
cs 01131 84054 
CYCLE 010450 403 84054 

T B06705 405a* 
DATAHD 7 OS#* 
DCLASM= 104417 4034 8425 

CLR = $0 4034 840 

DDISP = 177570 4034 
DELAY = 104414 4034 8443 


1 
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8803 
8801 8807 


8531 8599 8777 


8528 8595 8758 


8459 8469 8548 


6 7 


8807 


8568 


SEQ 0084 
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/CNDZBA.P11 
'DEVADR 00573 
‘DEVICE= 10441 
|DH1 016510 
‘DH 016534 
- 016567 
DHS 016601 
DHS 016630 
ISPLA 001306 
DISPRE 000174 
DLYCNT 304 
DLYTBL 017006 
DONFLG 001425 
DSWR = 177570 
DTRO = 00 
DTR1 = 001000 
DTR2 = 002000 
DTR3 = 000 
pT1 016710 
DT2 016722 
DT3 016740 
DT4 016746 
DTS 016764 
DVALID= 1 
DZCRO 001500 
DZCR1 001512 
DZCR10 001620 
DZCR1i 0016 
DZCR1I2 001644 
DZCR13 001656 
DZCR14 001670 
DZCR15 001702 
DZCR16 001714 
DZCR17 001726 
DZCR2 001524 
DZCR3 0015 
DZcR4 001550 
DZCRS 001562 
D2C¢ 001574 
DZCR7 001606 
DZVACT 0014 
DZVCSR 00201 
DzvcO }§=—.: 001502 
D2VC1_ 001514 
DZVC10 001622 
D2VC11 0016 
Dzvcte 001646 
D2VC13 001 
D2VC14 001672 
D2VC15 001704 
DzvCi6 001716 
D2VvC1 0017 
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84054" 

84034 8405 8701 8807 
8901 opels 

8905 90. ¢ 

8909 891 8933 8941 
8993 90234 

8917 921 90244 

8965 90254 

84034" 8405* 

84034 

8403* 84054 

8403 76a 

84034 8807+ 

84034 

84034 

84034 

84034 

84034 

8902 90324 

8906 90384 

8910 8914 8934 8942 
8994 90464 

8918 8922 90504 

8 90584 

840 8476 8688 8807 
84034 8405 

84034 


3 


co 
rs 
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a ee ey 


BARRE EERE REE ee 


ERRREARKLELRS 


$603 
405* 8430" 8436 


8562 
8405 


8566 


8604* 


8945 


8946 


8441 
8626 
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8953 


8954 


8451 
8651 


8957 


8958 


8457 
8654 


8961 


8962 


8973 = 8977 
8974 8978 
8505* 8509 
8789 8807+ 


8981 8985 
8982 86 8986 
8513* 8535 
8820 8835+ 


SEQ 0085 


8989 


8990 


8838 


co - —-— + _—— —— ——— -_-—— 


. 
CNDZB=A_MACY11 gO 1066) cs EC-82 14:38 PAGE 86-3 








73 \CNDZBA.P11:15=DEC-82 14:3 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0086 
‘pzvc3 001540 4034 
‘pzvce 001552 4030 
iDzvcS. 001564 84034 
D2VC6 001576 84034 
D2VC? 001610 03" 
D2VLEV 011014 84058 
DZVLBR 002020 84034 8405+ 8760" 8771+ 8807s 
DZVMSR 0020 84034  8405« 
DZVNUM 001414 B4034s B405¢ 
DZVRBU 002014 840 05* 8477 8491 8539 8657 8807 8856 
DZVRIS 002042 Bc034 8405+ 8534 8601s 8784s 88076 
DZVRIV 002040 403# 8405e 8533e 8561" 8600" 8783*  8807« 
DZVTCR 002024 84034 8405+ 8435+ 8495" 8508s 85444 85824 8605+ 8639 8786" 8807 8833 
DZVTDR 002034 B403# 8405" 8447" 8516" 8552e 8564" 8642*  8823« 
DZVTIS 002046 84034 8405« 8603" 8785  8807* 
DZVTIV 002044 84034 8405 8506" 8602 8782e  8807* 
D2V.EN 001740 84034 8405 
D2V.MA 001500 84034 8405 
EIGHT = 000030 84034 8748 8751 
EIGHTS= 000070 84034 
EMTVEC= 000030 84038 
EM] 015364 8900 9000" 
EM11 —-915641 8932 9006" 
EM13. 015677 8940 90078 
EM14 015730 8944 90088 
EMIS 015762 8948 90098 
EMI? peo 8 S986 OTe 
Mie th B90, S00Te 
EM20 016134 8960 90128 
EM21 016175 8964 901 
EMS 016225 972 90148 
EM24 016055 8976  9015# 
EMSS 016 $03 8980 90164 
EM26 «6016333 8984 90178 
Me? 016362 8988 90188 
EM 015465 8 90028 
EM30 0164 992 901 
EMA «018524 912 90038 
EMS 015553 916 90048 
EM6 15602 8920  9005@ 
ERRMSG 006656 8405e" 
ERRVEC= 000004 03#  8405« 
ERTABO 007032 05a 
EVEPAR= 03e 
EXITER 0067 05a 
FALCIN 017046 03e 9175¢ 
FIVE = 000000 03a 
eee ae Ooo0G0 8 6688 
= 
GETCSR= 2350 Oke thts | Ba85e 183. 
GE TSWR= 74 03* 0S# 
GETVEC= 002376 0 184* 9185 9186« 
HALTS 7 0S# 
HORFLG 0014 03ae 
HDZVCS 00201 03# 8405e 8622 98813 
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CNDZBA.P11 
/HDZVLP 0 
|HOZVMS $03085 
|HDZVRB 002016 
;HDZVTC 
|HDZVTD 0 
HILIM 0057 
HT = 11 
INBUF 010344 
INIFLG 001422 
INSTER= 104404 
INSTR = 104403 
i. fea 
= 
KXTFLA 017 3 
LF = 000012 
LIMITS 005656 
LINE 001366 
LINEO 001504 
LINE? 001516 
LINE10 gp logs 
LINE11 0016 
Le te 001650 
LINE13 001662 
LINE14 pie” 
LINE1S 001706 
LINE16 001720 
Line}? Ee 
LINES Hae te 
LINES 001554 
LINES 001566 
LINE6 001600 
LINE? 001612 
LKVEC = 000100 
LOBITS 005734 
LOCK O01 366 
LOLIM 005726 
LPRSET= 104421 
LPO} = = 000000 
LP1 = 000001 
tes = 000008 
= 
MAINT = 600970 
MANTO 001510 
MANT1 oot ee 
MANT1O 0016 
MANT11 1642 
MANT1 1654 
MANT1 1 
MANT14 ot 
MANT15 171 
MANT1 ire 
MANT1 17 
ae 1534 
MANT 1306 
MANTS 1 
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14:35 CROSS REFERENCE TABLE == USER SYMBOLS 
40 05* 
0 05e 
0 05* 
o48 05* 
4034 05« 
on toa 
034 8405 
BS 0 
® ® 
gat 
rt td 05 
4054 
84034  8405* 
ttm 920 
840 840 
84054 
84034 8405* 8431 8537 8596 8597 8605 
84034" 
84034 
84034 
Sc08e 
Sco8e 
84034 
84034 
84034 
oeee 
be 
84034 
84034 
034 
034 
034 
84054 
ont Ae 8405* 8424 8527+ 8737+ 
034 8426 8529 8598 
034 
034 
034 
Be 0 
th Bios 
034 
0 
0 
4 
bse 
034 
0 
° 
0 


8634 


8679 


8705 


8749 


8807 


SEQ 0087 


75 


mote 


\CNDZB=A_MACY11 


CNDZBA.P11 
MANTS 001572 
MANT 001604 
MANT 001616 
MASK = 000200 
MASTEK 007761 
LN 010074 
MCSRX 007711 
ATA pesos 
MEPASS 00752 
RR 010041 
MERRX pores 
MERR2 00756 
MERR3 $0768 
MLOCK 00766 
id 007764 
MNTFLG 001424 
001372 
MPASSX 007725 
MPFAIL 007464 
007553 
ENAB= 00004 
MTITLE 001 
MTSTN 007747 
MVECX 007717 
NEXT 001 
NOLIST= seeee2 
ODDPAR= 000200 
ODTST = 470000 
motte 0151 
OuT 01344 
PAR 1370 
PARAM = 104405 
PARAM1 005576 
PARER = 01 
PARERR 005652 
PARITY= rite 
PARMD = 10441 
PARO 001506 
PAR1 001520 
PARIO 00162 
PAR11 00164 
PARI 00165. 
PAR1 001664 
PAR14 00167 
PARIS 00171 
PAR1 pores 
PAR1 0017 
PAR. ES 4 
PAR 001886 
PARS 001870 
PAR6 001602 
PAR7 001614 
PAWCH = 104416 





kK 7 
15=DEC-82 14:38 PAGE 86-5 


4:35 CROSS REFERENCE TABLE == USER SYMBOLS 
840 
840 
ret ry 8405 8534 8601 8603 8700* 8784 8785 
8403 84054 
84054 
84054 
84054 
8405 
84054 
84054 
03 8405 
8403 84054 
8403 84054 
84034  8405* 
84034 8405" 8474 8761 8807 
84054 
84054 
8403 84054 


84034 8430 8505 8513 8535 8604 8787 8807 


84034 

84054 

84054 

econ" 8405 8423* 8526* 8594* 8737 8742 8807+ 
bd 8807 

Brees 8755* 8798 8882 8884  8893# 

84034 
13, 87004 


O3# 8488 8665 8859 
84034 8405* 8807 


8403# 8671 8807 8865 
034 8807 


OSOoooooooooooooooo 
SLI SLL LSS LSS VSS SS 


PRRRERAKASLARKAESEE 


8807+ 


8891 


SEQ 0088 


L 7 
CNDZB=A_MACY11 30(1046) 15=DEC-82 14:38 PAGE 86-6 


176 CNDZBA.PI1 15=DEC=82 14:35 CROSS REFERENCE TABLE == USER SYMBOLS SE0 0089 
PIRa_ = 177772 84034 
PIRGVE= 000249 840 
POINT = 017252 2058 
POPRO = 012600 84034 
POPISP= 005726, 840 
POP2SP= 022626 B403# 8405 8578 8581 
PRO = 000000 84030 
| PRI = 000040 84034 
| PR2 = 000100 4038 
| PRS = 000140 840 
| PR4 = 000200 84030 
! PRS = 000240 84030 
| PR6 = 000390 B403# 8405 
| PR? = 000340 . —«840 
PS. = 177776 840 
| Psu = 177776 84030 
: SHRO= 010066 84030 
| PUSHIS= 005746 84030 
| PUSH2S= 024646 84030 
| VEC= 000024 8403" 8405" 
| RCVON = 010000 84038 8748 8751 8759 «8770 
! RDONE = 000200 4030 
| REGIST 001402 4030 8776" 9066 
| SREG 006704 84050 
| RESTAR 011010 84050 
| SVEC= 000010 84030 
| Rie. = 000100 Bose 8535 8606 «8787 «8789 «8807 «8891 
= 
|_| Ngo = 900001 038 
| RING! = 000002 84030 
| RING? = 000004 84038 
| RINGS = 000010 84030 
| RLO” = 000000 84050 
| RL1 = 000400 84050 
| RL2 = 001000 84030 
| RLS = 001400 84030 
| RUN 001412 B403H B405e 
| RXISRI 014732 8783 88534 
| RXSVC 013234 8600 86514 
| XTCR 013512 5960 S611 8694" 8715# 
| SAVLIN 001374 Bose Ba27s 8433 8473 8497s B53)e S42 BSBhe E2Se BEEIe BERD BGG 8703 
* ® + * & * 
a7lis 8765+ 8772 8773+ 8807s 8815, BBiée 8886+ 888. 9048 9056 9060 
| SAVNO. 001616 B403e~ 8405 
| SAVNUM 001415 O3#* 8405« 
| VPC’ 001404 038 8405 
SAVOS = 106407 03 8405 
ScOPi = 104401 O3# 8496 8514 «85838797 
SERV.G 007046 058 8796 
TAPT 011156 O5e 84054 
SETFLG= 1044 0 
VEN = 4030 
SHIFT = 1044 6 98 8585 B71S 8756 
= 
ILOAL= 020000 0 Bc31 Bis? B61 e 8566 8654 
SILOEN= 010000 O3e 8430 8505 BSS S38 





m7 
CNDZB-A MACY11 30(1046) 15=DEC=82 14:38 PAGE 86-7 


77 CNDZBA.P11 - 15=DEC=82 14:35 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0090 
SIX = 000010 84034 
SIXS = 000050 84058 
SNAP 01306 609% 8695 
SPACNT 00620 4058 
Ck = 001120 403# 8405 
STKLMT= 177776 84030 
001446 84034 8405 
SVOS 005744 84058 
001304 8403#* 8405* 
SWREG 000176 84034 
= 000001 84038 
Sw0O = 000001 84034 
SwO1 = 000002 84034 8405 
SwO2 = 000004 84034 
SwO3 = 000010 84034 
Sw04 = 00020 84038 
SwOS = 000040 84034 
Sw06 = 000100 84034 
SwO7 = 000200 84034 
SwO8 = 000400 84034 8405 
SwO9 = 001000 84034 8405 
Swi = 000002 84038 
Swi0 = 002000 84034 8405 
| SW17 = 004000 840 
SWi2 = 010000 84034 8405 
Sw13 = 020000 84034 8405 
Swi4 = 040000 030 
Swi5 = 100000 84034 
| Sw2 = 000004 34 
| Sw3 = 000010 84038 
| Sw4 = 000020 84034 
| Sw5 = 000040 84034 
| Sw6 = 000100 84038 
| SW7 = 000200 038 
SW8 = 000400 84034 
Sw9 = 001000 84034 
$110 = 001000 84034 
| $1200 = 003400 84034 
| $134 = 001400 84034 
5150 = 002000 84038 
| $1800 = 004000 84034 
| $19200= 007400 84034 
$2000 = 004400 84034 
$2400 = 005000 84034 
$300, = 002400 84034 
$3600 = 005400 84034 
$4800 = 006000 4034 
$50 = 000000 403 8748 8751 
$600 = 003000 034 
$7200 = 006400 4034 
$75 = 000400 034 
$9600 = 007 034 
TBITVE= 000014 03" 
TCRO = 000001 4034 
TERI = 000002 4034 
TCR2 = 000004 84034 





78 


CNDZB-A MACY11 
CNDZBA.P11 
TCRS = 000010 
Too es 
TD1 001430 
oe 0014352 
TD 001434 
TEIGHT 002106 
TFIVE 002114 
TKVEC = oo00e0 
= 
TLAST = 014132 
TLO = 000000 
TL1 = 000400 
TL2 = 001000 
T3 = 001400 
TMTBL 002050 
TPVEC = 
TRAPVE= 000034 
TRDY = 100000 
TRTVEC= 000014 
TRO 001436 
TRI 001440 
TR2 001442 
TRS 001444 
TSEVEN 002110 
SIX 002112 
TSsT1 012010 
TST 012452 
TST 3) 752 
TST4 13514 
TST5 014132 
TST6 = *eteee 
TTST 366 
TWOS TO= 0 
TXSVC 013120 
TXTCR 013232 
TYPDAT 006672 
YPE = reas 


30(104 


15=DEC= 


82 14 


a a ee +--+ ee eee 


nN 7 


[yyrc-se 14:38 PAGE 86-8 
CROSS REFERENCE TABLE == USER SYMBOLS 


8405 


8509 
90714 


8883* 


8684 





8447 


8513 


8887 


8689 


9071 


8751 
8645* 
9205 


8448* 8552 8553 


8604 8787 8807 


8889 


8691* 8692 8707 


86484 


8554 8564 8642 


8835 


8807* 8870 8872 


8643+ 


8876+ 


8818 


8877 


8823 


8879 


SEQ 0091 


8824+ 


B 8 
CNDZB-A_MACY11 AD a 15=DEC-82 14:38 PAGE 86-9 
15=DEC=82 1 


CNDZBA.P11 4:3 CROSS REFERENCE TABLE == USER SYMBOLS 
XBX 006450 84054 
XCSR 004324 4054 
XERR 6 4054 
1004 0 4054 
XMTCNT 14 40 781* oeee 8818 
XMTLIN 13 4034 acags 8752 8754 8775 
XMTSRV 01456 aioe 881 
XPA 340 84054 
XSTATQ 0101 8403 84054 
xTS 00 84054 
XVE 004332 8405 
xx = 160210 84034 
vY = 500 84034 
2Z = 20 84034 
SAPT 001446 84034 
SASTAT= weeeee 8405 
005170 84054 
SATY1 005144 840 
SATY3 00515 84054 
TY4 00516 84054 
SAUTOB 001300 84034 
SBASE 001174 84034* 8405* 9175 9177* 
SBDADR 001266 4034 
SBDDAT 001272 84034 
$CDW1 001200 84034 8405 
S$CDW2 001202 4034  8405* 
SCHARC 005140 84054* 
SCLKVE ONS 28 Sad 
SCMTAG 1244 840 
$CM1 = 000006 84034 
S$CM2 = 000014 84034 
SCM3 = 000006 84034 
$cM4 = 000005 84034 
CPUOP 001146 84034 
SCRLF 001357 84034 8405 
DWO 001204 84034 
Dwi 001206 84034 
SDDW10 001230 84034 
$DDW11 001232 84034 
$DDW12 001234 84034 
SDDW13 001236 84034 
$DDW14 001240 4034 
$DDW15 Bal ete 4034 
$DDW 00121 4034 
$DDW got sls 4034 
$SODW4 1214 40 
Bue $836 i 
$ppue 1329 0 
$D0DW8 1224 40 
1566 0 
SDEVCT 11 tr rt 
VM 117 rt 05* 
- 5 aoie 4234 85268 85944 87374 88074 
= 
SENDAD” 004310 Sios | Beose 








ee | oe C+ eee 


Cc 8 
CNDZB=-A_ MACY11 gO 1068) [sapec~Se 14:38 PAGE 86-10 
CNDZBA.P11 15=DEC=82 14:3 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0093 


SENDCT 004274 84054 
NV 001140 40 8405 8738 
SENVM = 001141 0 8405 
SEOP 004140 4054 8807 
SEOPCT 004 $8 4054 
SERFLG 00124 4034* or03° 
SERMAX 001 ! 40 405 
RROR 0 40 84054 
SERRPC 126 403#* 8405* 
SERRTB 001 034 
SERTTL OO012 3 O3#* 8405» 
SET 00114 84034 
SETE 001244 84034 
SFATAL 001122 84034 8405 
SFFLG 005410 84054 
SFILLC 001322 4034 8405 
SFILLS 001321 4034 8405 
SFLIP = 177777 56764 8410 84224 85184 8525# 8588# 85934 87184 87364 88074 
SGDADR 001264 84034 
SGDDAT 001270 84034 
$GET42 004300 84054 
$HD = 000001 8403 
SHIBTS 001446 84034 
SICNT 001250 4034 8405* 
ILLUP 007456 84054 
SINTAG 001301 84034 
SITEMB 001260 84034  8405* 
F 001 750 ited 8405 
FLG 005407 4054 
SLPADR 001252 840 8405* 
SLPERR 001254 84034 
SMADR1 001152 0 
SMADR2 001156 
SMADRS 001 
SMADR4 001 
SMAIL 001 8405 
SMAMS1 001 
SMAMS2 001 
SMAMSS 001 
SMAMS4 001 
001 
005 
001 
001 
001 
001 
001 
001 
001 


ON ec ed ed ed ed BBN ed ed ed td od od od AIA) 
= 
DALALTOSRRORS ROSH 


PRRERERRERELE REE eee 


SSONMOSSSSOOSOSOSCSOOSCOSOOOOOOSCO 
SPRL SLE L SS SS Se eV EL ILLS esse 
8 


SMXCNT 004 

$N = =: 000005 8410 84234 8518 8526 8588 8594 8718  8737# 88074 9068# 9069 
SNULL 1320 rf 

SNWTST= 526@ 85944 87374 88074 

SOVE 004554 

SPASS ooase 403#* 8405* 8740 

SPASTM 1454 4 





— 


CNDZB=A MACY11 
CNDZBA.P11 





-DCLAS 


Ws 
_—u 


=~ 
&- 
o 


gessggessees 
amas 


Soke 


es 
rs 


— = IN 


WWW 


pa ee ae er ee ee ey 
wu 


SSSS8ssss 


segeuggpesaess 
Sars ras Yeats 
PONMINMLSMUAMWLWO 


nd 








AD pe 15=DEC=82 14:38 PAGE 86-11 
1 CROSS REFERENCE TABLE == USER SYMBOLS 


“DEC-82 14:35 


SEE 


& 


8405* 


ee SSR EILS 


c 
PRRRREVLEL ERK S 


8423+ 


9178 


8437 
9205¢ 


8423 


8526* 


9180* 


8471 


9062 


8526 8594 


8879 
8844+ 8883 


87374 88074 


8594* 8737 


8540 8557 


8737 8807 
8887 9064 
8807+ 


85635 8627 8635 8652 8655 8680 


SEQ 0094 


8693 


E 8 
CNDZB=-A_MACY11 A ae a 14:38 PAGE 86-12 
CNDZBA.P11 15=DEC=82 14:3 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0095 





-DELAY 006266 g8 He ted 
~DEVIC 006234 0 4054 
-ERRTA 015136 rt 889 
-INSTE 00551 0 84054 
~INSTR 00541 840 84054 
- INST tet 3 84054 

eLPRSE 0063 403 84054 
MSG 005434 84054 

-PARAM 005536 8403 4054 
ePARMD 011154 840 4054 
-PAWCH B06 70 840 4054 
eRESOS 005776 840 4054 
-SAVOS 005736 403 84054 
~SCOPE 004354 403 84054 
-SCOP1 620 8403 84054 
»SETFL 010150 8403 8405« 
SHIFT 320 8403 84054 
eSTART 002116 84034 

- TRPSR 12 8403 84054 
eTRPTA 001742 8403# 840 
-TYPE 004644 8403 84054 
oSASTA= seeeee YJ 8405 


-$X = 001446 84034 


! ne a EE | ee : ; 
as MACY11_ 30(1046) HE si 14:38 PAGE 87 


CNDZBA.P11 15=DEC=82 14: CROSS REFERENCE TABLE == MACRO NAMES SEQ 0096 
me 
8438 844 8453 8462 8480 8483 re: 8551 8558 8571 8576 8579 8616 8617 
8636 8 =. 865 £636 8664 8667 8670 673 8681 8690 8709 8795 8807 8822 8855 
886 8864 886 8875 8890 
840 
840 
840 
840 
rt 8423 8526 8594 8737 8807 
840 8405 
840 
840 
840 8405 
568 84034 


8423 8526 8594 8737 8807 


8405 8423 8526 = «8594 8737 8807 


MAAN NMS SESSESS VSSQ MMS 


SOQOoooooooceooocoo ooooece]eo 


ERLERELELRELELE KEELER 


8405 
807 
738 
05 
7? 
B08 
9 
4 
23 
$3 8526 8594 8737 8807 
10 8422 8518 8525 8588 8593 8718 8736 8807 


3 
oo 
ea 


8423 8526 8594 8737 8807 





t-— 
' 








_CNDZB-A MACY11 1 30 
CNDZBA.P11 
‘SSSKIP = 17468 
| EQUAT 1894 
| MEADE 1 
| INIT 56584 
~SETUP 12134 
}eSWRHI = 1048 
-SACTI sp nad 
-SAPTB 1094 
-SAPTH 53708 
-SAPTY 55474 
eSASTA 54178 
-SCATC 9324 
-SCMTA 104678 
-$DB2D 4 
$0820 48124 
-SDIV 45874 
.SEOP Abed 
oSERRO 7 
-SERRT 28968 
. tT 45234 
42294 
-SRAND 43074 
-SRDDE 38914 
.$RDOC 7978 
- SREAD 3954 
-SR2AZ 49588 
-SSAVE 39694 
° 424 47714 
.$SB8 48744 
-$SSCOP 24544 
-SSIZE 43614 
49134 
STRAP 40734 
-STYPB 2878 
-STYPD 2094 
.STYPE 9854 
-$STYPO 1124 
-840CA 9724 


- ABS. 017326 


ERRORS DETECTED: 


0¢( 104 
15=DEC= 


56814 


56814 


56804 


000 


0 


ot 


G 8 
i 14:38 PAGE 87- 
CROSS REF ERENCE TABLE == MACRO NAMES 


8405 


8405 


8405 


8405 


orm or: TOC=CNMAC2.SML,CNDZBA.P11 
RUN-TIME: 16 18 1 SECONDS 


RUN-TIME RATIO: 110/36=2.9 
(100 PAGES) 


CORE USED: 50k 


ienrmutatemsisenntian 


SEQ 0097 


